Author: ehuelsmann Date: Thu Jan 18 16:15:13 2007 New Revision: 172

Modified: usocket/trunk/backend/allegro.lisp Log: Fix variable naming error (Allegro).

Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Thu Jan 18 16:15:13 2007 @@ -65,7 +65,7 @@ ) (when (not (eql host *wildcard-host*)) (list :local-host host))))))) - (make-stream-server-socket :socket socket))) + (make-stream-server-socket :socket sock)))

(defmethod socket-accept ((socket stream-server-usocket)) (let ((stream-sock (socket:accept-connection (socket socket))))