Changeset 5238

Timestamp:

Sep 21, 2006, 3:02:31 AM (18 years ago)

Author:

Gary Byers

Message:

Use underscore prefix on all Darwin flavors.

Add a type decl in %nanosleep.

File:

• trunk/ccl/level-1/l1-lisp-threads.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-lisp-threads.lisp

@@ -44 +44 @@
       (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))