[usocket-cvs] r671 - in usocket/trunk: . backend

[hhubner at common-lisp.net]

Author: hhubner
Date: Tue Aug 16 00:58:22 2011
New Revision: 671

Log:
Allegro CL modern mode fixes

Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/usocket.lisp

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	Fri Aug 12 23:08:37 2011	(r670)
+++ usocket/trunk/backend/allegro.lisp	Tue Aug 16 00:58:22 2011	(r671)
@@ -199,5 +199,5 @@
       ;; [Same code is also used in openmcl.lisp]
       (dolist (x active-internal-sockets)
         (setf (state (gethash x (wait-list-map wait-list)))
-              :READ))
+              :read))
       wait-list)))

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	Fri Aug 12 23:08:37 2011	(r670)
+++ usocket/trunk/usocket.lisp	Tue Aug 16 00:58:22 2011	(r671)
@@ -325,11 +325,12 @@
          (sockets-ready 0))
     (dolist (x (wait-list-waiters socket-or-sockets))
       (when (setf (state x)
-                  #+(and win32 (or sbcl ecl)) NIL ; they cannot relay on LISTEN
+                  #+(and win32 (or sbcl ecl)) nil ; they cannot rely on LISTEN
                   #-(and win32 (or sbcl ecl))
                   (if (and (stream-usocket-p x)
                            (listen (socket-stream x)))
-                      :READ NIL))
+                      :read
+                      nil))
         (incf sockets-ready)))
     ;; the internal routine is responsibe for
     ;; making sure the wait doesn't block on socket-streams of