Author: ctian Date: Sun Apr 10 10:29:35 2011 New Revision: 640
Log: [CLISP] Fixed WAIT-FOR-INPUT, this made Hunchentoot working on CLISP. (Thanks to Anton Vodonosov avodonosov@yandex.ru)
Modified: usocket/branches/0.5.x/backend/clisp.lisp
Modified: usocket/branches/0.5.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.5.x/backend/clisp.lisp (original) +++ usocket/branches/0.5.x/backend/clisp.lisp Sun Apr 10 10:29:35 2011 @@ -232,9 +232,9 @@ (socket:socket-status request-list))) (sockets (wait-list-waiters wait-list))) (do* ((x (pop sockets) (pop sockets)) - (y (pop status-list) (pop status-list))) + (y (cdr (pop status-list)) (cdr (pop status-list)))) ((null x)) - (when (eq y :INPUT) + (when (member y '(T :INPUT)) (setf (state x) :READ))) wait-list))))