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