[usocket-cvs] r454 - usocket/branches/0.4.x/backend

[Chun Tian (binghe)]

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