(in-package "SB!UNIX")
-(file-comment
- "$Header$")
-
(/show0 "unix.lisp 21")
;;;; common machine-independent structures
(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*)))
#!+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
(void-syscall ("close" int) fd))
\f
;;; fcntlbits.h
-(eval-when (:compile-toplevel :load-toplevel :execute)
(/show0 "unix.lisp 337")
(defconstant o_rdonly 0) ; read-only flag
#!+linux #o2000
#!+bsd #x0008)
(/show0 "unix.lisp 361")
-) ; EVAL-WHEN
\f
;;;; timebits.h
(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")