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

[Chun Tian (binghe)]

Author: ctian
Date: Wed Jul  7 06:21:55 2010
New Revision: 536

Log:
SBCL: fix build due to references of compile-time constants.

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Wed Jul  7 06:21:55 2010
@@ -402,6 +402,12 @@
 ;;; Based on LispWorks version written by Erik Huelsmann.
 
 #+(and sbcl win32)
+(eval-when (:compile-toplevel)
+  (defconstant +wait-failed+ -1) ; #xffffffff
+  (defconstant +wait-object-0+ 0)
+  (defconstant +wait-timeout+ 258))
+
+#+(and sbcl win32)
 (progn
   (defconstant fd-read 1)
   (defconstant fd-read-bit 0)
@@ -426,12 +432,6 @@
   (defconstant fd-max-events 10)
   (defconstant fionread 1074030207)
 
-  ;; For WaitForSingleObject
-  (eval-when (:compile-toplevel)
-    (defconstant +wait-failed+ -1) ; #xffffffff
-    (defconstant +wait-object-0+ 0)
-    (defconstant +wait-timeout+ 258))
-
   (sb-alien:define-alien-type ws-socket sb-alien:unsigned-int)
 
   (sb-alien:define-alien-type nil