[usocket-cvs] r703 - usocket/trunk/backend

[ctian at common-lisp.net]

Author: ctian
Date: Sun Dec  9 04:53:52 2012
New Revision: 703

Log:
[ECL] Fixed compilation.

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	Sun Dec  9 02:05:24 2012	(r702)
+++ usocket/trunk/backend/sbcl.lisp	Sun Dec  9 04:53:52 2012	(r703)
@@ -485,11 +485,13 @@
 ;;; Based on LispWorks version written by Erik Huelsmann.
 
 #+win32 ; shared by ECL and SBCL
-(progn
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defconstant +wsa-wait-failed+ #xffffffff)
   (defconstant +wsa-wait-event-0+ 0)
-  (defconstant +wsa-wait-timeout+ 258)
+  (defconstant +wsa-wait-timeout+ 258))
 
+#+win32 ; shared by ECL and SBCL
+(progn
   (defconstant fd-read 1)
   (defconstant fd-read-bit 0)
   (defconstant fd-write 2)