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