[usocket-cvs] r406 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jul 30 16:56:49 2008
New Revision: 406

Modified:
   usocket/trunk/backend/lispworks.lisp
Log:
Fix LispWorks local-host/-port.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Wed Jul 30 16:56:49 2008
@@ -74,17 +74,18 @@
                     (raise-usock-err errno socket condition)))))
 
 (defun socket-connect (host port &key (element-type 'base-char)
-                       timeout deadline (nodelay t nodelay-specified))
+                       timeout deadline (nodelay t nodelay-specified)
+                       local-host local-port)
   (declare (ignorable nodelay))
   (when timeout (unimplemented 'timeout 'socket-connect))
-  (when deadline (unsupported 'deadline 'socket-connect "LispWorks 5.1"))
+  (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1"))
   
   #+(and (not lispworks4) (not lispworks5.0))
   (when nodelay-specified (unimplemented 'nodelay 'socket-connect))
   #+lispworks4
   (when (or local-host local-port)
-     (unsupported 'local-host 'socket-connect "LispWorks 5.0+ (verified)")
-     (unsupported 'local-port 'socket-connect "LispWorks 5.0+ (verified)"))
+     (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0+ (verified)")
+     (unsupported 'local-port 'socket-connect :minimum "LispWorks 5.0+ (verified)"))
 
   (let ((hostname (host-to-hostname host))
         (stream))
@@ -110,9 +111,9 @@
                            (backlog 5)
                            (element-type 'base-char))
   #+lispworks4.1
-  (unsupported 'host 'socket-listen "LispWorks 4.0 or newer than 4.1")
+  (unsupported 'host 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1")
   #+lispworks4.1
-  (unsupported 'backlog 'socket-listen "LispWorks 4.0 or newer than 4.1")
+  (unsupported 'backlog 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1")
 
   (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress))
          (comm::*use_so_reuseaddr* reuseaddress)