X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=71dedbc90ed33bf3f57501d1a46eacf943f6f21d;hb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;hp=13acdf9c10fa4a9d57550255544fb493fd73ad01;hpb=3aba91516068375e01ffec0d19bf8cbe85feb828;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 13acdf9..71dedbc 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB-EXT")
-
-(file-comment
-  "$Header$")
 
 ;;;; Import wait3(2) from Unix.
 
@@ -22,10 +19,9 @@
   (options sb-c-call:int)
   (rusage sb-c-call:int))
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant wait-wnohang #-svr4 1 #+svr4 #o100)
-  (defconstant wait-wuntraced #-svr4 2 #+svr4 4)
-  (defconstant wait-wstopped #-svr4 #o177 #+svr4 wait-wuntraced))
+(defconstant wait-wnohang #-svr4 1 #+svr4 #o100)
+(defconstant wait-wuntraced #-svr4 2 #+svr4 4)
+(defconstant wait-wstopped #-svr4 #o177 #+svr4 wait-wuntraced)
 
 (defun wait3 (&optional do-not-hang check-for-stopped)
   "Return any available status information on child process. "