X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=4ad861f281e1ddd3d79c08a01b83e3c411de6c74;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=a6b01bed2fb489f05b497a1acd71664193822d8f;hpb=3aba91516068375e01ffec0d19bf8cbe85feb828;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index a6b01be..4ad861f 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -24,9 +24,6 @@
 
 (in-package "SB!UNIX")
 
-(file-comment
-  "$Header$")
-
 (/show0 "unix.lisp 21")
 
 ;;;; common machine-independent structures
@@ -39,10 +36,9 @@
 
 (sb!xc:defmacro def-unix-error (name number description)
   `(progn
+     (defconstant ,name ,number ,description)
      (eval-when (:compile-toplevel :execute)
-       (push (cons ,number ,description) *compiler-unix-errors*))
-     (eval-when (:compile-toplevel :load-toplevel :execute)
-       (defconstant ,name ,number ,description))))
+       (push (cons ,number ,description) *compiler-unix-errors*))))
 
 (sb!xc:defmacro emit-unix-errors ()
   (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*)))
@@ -196,9 +192,8 @@
   #!+linux long
   #!+bsd   quad-t)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (/show0 "unix.lisp 215")
-  (defconstant fd-setsize 1024))
+(/show0 "unix.lisp 195")
+(defconstant fd-setsize 1024)
 (/show0 "unix.lisp 217")
 
 (def-alien-type nil
@@ -331,7 +326,6 @@
   (void-syscall ("close" int) fd))
 
 ;;; fcntlbits.h
-(eval-when (:compile-toplevel :load-toplevel :execute)
 
 (/show0 "unix.lisp 337")
 (defconstant o_rdonly  0) ; read-only flag
@@ -355,7 +349,6 @@
   #!+linux #o2000
   #!+bsd   #x0008)
 (/show0 "unix.lisp 361")
-) ; EVAL-WHEN
 
 ;;;; timebits.h
 
@@ -756,9 +749,8 @@
 		    ,num-descriptors ,read-fds ,write-fds ,exception-fds
 		    (if timeout-secs (alien-sap (addr tv)) (int-sap 0))))))
 
-;;; Unix-select accepts sets of file descriptors and waits for an event
+;;; UNIX-SELECT accepts sets of file descriptors and waits for an event
 ;;; to happen on one of them or to time out.
-
 (defmacro num-to-fd-set (fdset num)
   `(if (fixnump ,num)
        (progn