X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=7c1298d3ec7813c1bd707fbd93e448c90a2fbc25;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=c1b32ab39c0303c8d8a4076a019447fb21280b8f;hpb=3a618201c9f2370bb8784217a866d000371769e5;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index c1b32ab..7c1298d 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -241,7 +241,7 @@
 
 ;;; UNIX-WRITE accepts a file descriptor, a buffer, an offset, and the
 ;;; length to write. It attempts to write len bytes to the device
-;;; associated with fd from the the buffer starting at offset. It returns
+;;; associated with fd from the buffer starting at offset. It returns
 ;;; the actual number of bytes written.
 (defun unix-write (fd buf offset len)
   (declare (type unix-fd fd)
@@ -968,7 +968,9 @@ previous timer after the body has finished executing"
     `(multiple-value-bind (,word ,bit) (floor ,offset 32)
        (setf (deref (slot ,fd-set 'fds-bits) ,word)
 	     (logand (deref (slot ,fd-set 'fds-bits) ,word)
-		     (sb!kernel:32bit-logical-not
+                     ;; FIXME: This may not be quite right for 64-bit
+                     ;; ports of SBCL.  --njf, 2004-08-04
+		     (sb!kernel:word-logical-not
 		      (truly-the (unsigned-byte 32) (ash 1 ,bit))))))))
 
 ;;; not checked for linux...