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)