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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 16:45:57 2007
New Revision: 159

Modified:
   usocket/trunk/backend/lispworks.lisp
Log:
Remove (partially stale) comments.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Tue Jan 16 16:45:57 2007
@@ -43,9 +43,6 @@
                         (error 'unknown-error
                                :socket socket
                                :real-error condition)))))))
-;;     (condition (error 'usocket-error
-;;                       :real-condition condition
-;;                       :socket socket))))
 
 (defun socket-connect (host port &key (element-type 'base-char))
   (let ((hostname (host-to-hostname host))
@@ -58,12 +55,8 @@
         (make-stream-socket :socket (comm:socket-stream-socket stream)
                             :stream stream)
       (error 'unknown-error))))
-;;                 :host host
-;;                 :port port))
 
 (defun socket-listen (host port &key reuseaddress (backlog 5))
-  ;; backlog ignored; I've mailed LispWorks support, but
-  ;; don't have an answer yet
   (let* ((comm::*use_so_reuseaddr* reuseaddress)
          (sock (with-mapped-conditions ()
                   #-lispworks4.1 (comm::create-tcp-socket-for-service