[cl-plus-ssl-cvs] CVS cl+ssl

[avodonosov]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory cl-net:/tmp/cvs-serv14721

Modified Files:
	streams.lisp 
Log Message:
CLISP compilation error suggested by Luis Oliveira: http://common-lisp.net/pipermail/cl-plus-ssl-devel/2008-September/000137.html

--- /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/10/27 10:03:59	1.13
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/11/01 02:56:07	1.14
@@ -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