From hhubner at common-lisp.net  Mon Oct 27 10:03:59 2008
From: hhubner at common-lisp.net (hhubner)
Date: Mon, 27 Oct 2008 10:03:59 +0000
Subject: [cl-plus-ssl-cvs] CVS cl+ssl
Message-ID: <E1KuOx5-00051O-Ub@common-lisp.net>

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)))