projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10:
[sbcl.git]
/
src
/
code
/
unix.lisp
diff --git
a/src/code/unix.lisp
b/src/code/unix.lisp
index
c6083a6
..
4ad861f
100644
(file)
--- a/
src/code/unix.lisp
+++ b/
src/code/unix.lisp
@@
-36,10
+36,9
@@
(sb!xc:defmacro def-unix-error (name number description)
`(progn
(sb!xc:defmacro def-unix-error (name number description)
`(progn
+ (defconstant ,name ,number ,description)
(eval-when (:compile-toplevel :execute)
(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*)))
(sb!xc:defmacro emit-unix-errors ()
(let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*)))
@@
-193,9
+192,8
@@
#!+linux long
#!+bsd quad-t)
#!+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
(/show0 "unix.lisp 217")
(def-alien-type nil
@@
-328,7
+326,6
@@
(void-syscall ("close" int) fd))
\f
;;; fcntlbits.h
(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
(/show0 "unix.lisp 337")
(defconstant o_rdonly 0) ; read-only flag
@@
-352,7
+349,6
@@
#!+linux #o2000
#!+bsd #x0008)
(/show0 "unix.lisp 361")
#!+linux #o2000
#!+bsd #x0008)
(/show0 "unix.lisp 361")
-) ; EVAL-WHEN
\f
;;;; timebits.h
\f
;;;; timebits.h
@@
-753,9
+749,8
@@
,num-descriptors ,read-fds ,write-fds ,exception-fds
(if timeout-secs (alien-sap (addr tv)) (int-sap 0))))))
,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.
;;; to happen on one of them or to time out.
-
(defmacro num-to-fd-set (fdset num)
`(if (fixnump ,num)
(progn
(defmacro num-to-fd-set (fdset num)
`(if (fixnump ,num)
(progn