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

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index a6b01be..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