Author: ctian Date: Wed Sep 15 02:26:32 2010 New Revision: 562
Log: ABCL: bugfix for socket-accept, now socker-server confirmed works.
Modified: usocket/trunk/backend/abcl.lisp usocket/trunk/server.lisp
Modified: usocket/trunk/backend/abcl.lisp ============================================================================== --- usocket/trunk/backend/abcl.lisp (original) +++ usocket/trunk/backend/abcl.lisp Wed Sep 15 02:26:32 2010 @@ -249,9 +249,9 @@
;;; SOCKET-ACCEPT
-(defmethod socket-accept ((socket stream-server-usocket) &key (element-type 'character)) - (with-mapped-conditions (socket) - (let* ((client-socket (jcall $@accept/0 socket)) +(defmethod socket-accept ((usocket stream-server-usocket) &key (element-type 'character)) + (with-mapped-conditions (usocket) + (let* ((client-socket (jcall $@accept/0 (socket usocket))) (stream (ext:get-socket-stream client-socket :element-type element-type))) (make-stream-socket :stream stream :socket client-socket))))
Modified: usocket/trunk/server.lisp ============================================================================== --- usocket/trunk/server.lisp (original) +++ usocket/trunk/server.lisp Wed Sep 15 02:26:32 2010 @@ -9,7 +9,7 @@ (timeout 1) (max-buffer-size +max-datagram-packet-size+) ;; for tcp element-type reuse-address multi-threading) - (let* ((real-host (or host #(0 0 0 0))) + (let* ((real-host (or host *wildcard-host*)) (socket (ecase protocol (:stream (apply #'socket-listen