CLISP compilation error suggested by Luis Oliveira: http://common-lisp.net/pipermail/cl-plus-ssl-devel/2008-September/000137.html
parent
b3c18ca02e
commit
2f05a0b7b9
10
streams.lisp
10
streams.lisp
|
@ -165,8 +165,14 @@
|
|||
|
||||
#+clozure-common-lisp
|
||||
(defun install-nonblock-flag (fd)
|
||||
(ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd) #$O_NONBLOCK)))
|
||||
|
||||
(ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd)
|
||||
#.(read-from-string "#$O_NONBLOCK"))))
|
||||
;; read-from-string is necessary because
|
||||
;; CLISP and perhaps other Lisps are confused
|
||||
;; by #$, signaling"undefined dispatch character $",
|
||||
;; even though the defun in conditionalized by
|
||||
;; #+clozure-common-lisp
|
||||
|
||||
#+(and sbcl (not win32))
|
||||
(defun install-nonblock-flag (fd)
|
||||
(sb-posix:fcntl fd
|
||||
|
|
Loading…
Reference in New Issue