Changeset 270

Timestamp:

Jan 13, 2004, 4:45:14 PM (21 years ago)

Author:

Gary Byers

Message:

The type system is/was choking on unknown types; it choked on (NUMBER 0 *),
which should have been (REAL 0 *) in the first place.

File:

• trunk/ccl/lib/time.lisp (modified) (1 diff)

trunk/ccl/lib/time.lisp

@@ -165 +165 @@
 
 (defun sleep (seconds)
-  (when (minusp seconds) (report-bad-arg seconds '(number 0 *)))
+  (when (minusp seconds) (report-bad-arg seconds '(real 0 *)))
   (let* ((tps *ticks-per-second*)
          (npt *ns-per-tick*)