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

[hhubner]

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

Modified Files:
	streams.lisp 
Log Message:
Patch so to support sbcl on win32 from Anton Vodonosov.


--- /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/04/17 20:58:29	1.12
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/10/27 10:03:59	1.13
@@ -167,14 +167,14 @@
 (defun install-nonblock-flag (fd)
   (ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd) #$O_NONBLOCK)))
 
-#+sbcl
+#+(and sbcl (not win32))
 (defun install-nonblock-flag (fd)
   (sb-posix:fcntl fd
 		  sb-posix::f-setfl
 		  (logior (sb-posix:fcntl fd sb-posix::f-getfl)
 			  sb-posix::o-nonblock)))
 
-#-(or clozure-common-lisp sbcl)
+#-(or clozure-common-lisp (and sbcl (not win32)))
 (defun install-nonblock-flag (fd)
   (declare (ignore fd)))