X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=cb64f81c352994b944a0160fd860fdfecd569f58;hb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;hp=d7a66d02d8c25d436a94683e3e2300d420b04381;hpb=cc1f30efe1c7438bfe6a413f16145ba2d63f7fe2;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index d7a66d0..cb64f81 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
 
@@ -979,8 +972,8 @@
 (def-unix-error ESRCH 3 "No such process")
 |#
 (def-unix-error EINTR 4 "Interrupted system call")
-#|
 (def-unix-error EIO 5 "I/O error")
+#|
 (def-unix-error ENXIO 6 "No such device or address")
 (def-unix-error E2BIG 7 "Arg list too long")
 (def-unix-error ENOEXEC 8 "Exec format error")