Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5237)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5238)
@@ -44,9 +44,10 @@
       (loop
         (let* ((result 
-                (external-call #+darwinppc-target "_nanosleep"
-                               #-darwinppc-target "nanosleep"
+                (external-call #+darwin-target "_nanosleep"
+                               #-darwin-target "nanosleep"
                                :address aptr
                                :address bptr
                                :signed-fullword)))
+          (declare (type (signed-byte 32) result))
           (if (and (< result 0)
                    (eql (%get-errno) (- #$EINTR))