Author: ctian Date: Wed Oct 22 13:35:22 2008 New Revision: 454
Log: [0.4.x] minor fixes and enhancement
Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/branches/0.4.x/backend/sbcl.lisp usocket/branches/0.4.x/backend/scl.lisp
Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Wed Oct 22 13:35:22 2008 @@ -92,7 +92,7 @@ (server-sock (with-mapped-conditions () (apply #'ext:create-inet-listener - (append (list port :stream + (nconc (list port :stream :backlog backlog :reuse-address reuseaddress) (when (ip/= host *wildcard-host*)
Modified: usocket/branches/0.4.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/sbcl.lisp (original) +++ usocket/branches/0.4.x/backend/sbcl.lisp Wed Oct 22 13:35:22 2008 @@ -319,9 +319,9 @@ (sb-bsd-sockets::host-ent-addresses (sb-bsd-sockets:get-host-by-name name))))
-#+sbcl +#+(and sbcl (not win32)) (progn - #-win32 + (defun %setup-wait-list (wait-list) (declare (ignore wait-list)))
@@ -363,10 +363,10 @@ (socket x)) rfds) (setf (state x) :READ)))))))))) +) ; progn
- #+win32 +#+(and sbcl win32) (warn "wait-for-input not (yet!) supported...") - )
#+ecl (progn
Modified: usocket/branches/0.4.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/scl.lisp (original) +++ usocket/branches/0.4.x/backend/scl.lisp Wed Oct 22 13:35:22 2008 @@ -45,7 +45,8 @@
(let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p)) - (nconc args (list :local-host local-host :local-port local-port))) + (nconc args (list :local-host (host-to-hbo local-host) + :local-port local-port))) (with-mapped-conditions () (apply #'ext:connect-to-inet-socket args)))) (stream (sys:make-fd-stream socket :input t :output t