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