From hhubner at common-lisp.net  Thu Apr  9 06:01:44 2009
From: hhubner at common-lisp.net (hhubner)
Date: Thu, 09 Apr 2009 02:01:44 -0400
Subject: [cl-plus-ssl-cvs] CVS cl+ssl
Message-ID: <E1LrnKa-0004Wo-AP@common-lisp.net>

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

Modified Files:
	streams.lisp 
Log Message:
Compile fix for CCL on Windows.


--- /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/11/04 00:25:52	1.16
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2009/04/09 06:01:44	1.17
@@ -163,7 +163,7 @@
         (ensure-ssl-funcall stream handle #'ssl-write handle ptr fill-ptr))
       (setf (ssl-stream-output-pointer stream) 0))))
 
-#+clozure-common-lisp
+#+(and clozure-common-lisp (not windows))
 (defun install-nonblock-flag (fd)
   (ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd) 
                      #.(read-from-string "#$O_NONBLOCK"))))
@@ -180,7 +180,7 @@
 		  (logior (sb-posix:fcntl fd sb-posix::f-getfl)
 			  sb-posix::o-nonblock)))
 
-#-(or clozure-common-lisp (and sbcl (not win32)))
+#-(or (and clozure-common-lisp (not windows)) (and sbcl (not win32)))
 (defun install-nonblock-flag (fd)
   (declare (ignore fd)))