From ctian at common-lisp.net  Wed Apr 25 02:23:26 2012
From: ctian at common-lisp.net (ctian at common-lisp.net)
Date: Tue, 24 Apr 2012 19:23:26 -0700
Subject: [usocket-cvs] r692 - usocket/branches/0.5.x/backend
Message-ID: <E1SMrt8-0002uW-7T@common-lisp.net>

Author: ctian
Date: Tue Apr 24 19:23:24 2012
New Revision: 692

Log:
[LispWorks] remove redundant call to hcl:flag-special-free-action

Modified:
   usocket/branches/0.5.x/backend/lispworks.lisp

Modified: usocket/branches/0.5.x/backend/lispworks.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/lispworks.lisp	Mon Feb 27 07:10:32 2012	(r691)
+++ usocket/branches/0.5.x/backend/lispworks.lisp	Tue Apr 24 19:23:24 2012	(r692)
@@ -313,29 +313,29 @@
   (ecase protocol
     (:stream
      (let ((hostname (host-to-hostname host))
-	   (stream))
+           (stream))
        (setf stream
-	     (with-mapped-conditions ()
-	       (comm:open-tcp-stream hostname port
-				     :element-type element-type
-				     #-(and lispworks4 (not lispworks4.4)) ; >= 4.4.5
-				     #-(and lispworks4 (not lispworks4.4))
-				     :timeout timeout
-				     #-lispworks4 #-lispworks4
-				     #-lispworks4 #-lispworks4
-				     :local-address (when local-host (host-to-hostname local-host))
-				     :local-port local-port
-				     #-(or lispworks4 lispworks5.0) ; >= 5.1
-				     #-(or lispworks4 lispworks5.0)
-				     :nodelay nodelay)))
+             (with-mapped-conditions ()
+               (comm:open-tcp-stream hostname port
+                                     :element-type element-type
+                                     #-(and lispworks4 (not lispworks4.4)) ; >= 4.4.5
+                                     #-(and lispworks4 (not lispworks4.4))
+                                     :timeout timeout
+                                     #-lispworks4 #-lispworks4
+                                     #-lispworks4 #-lispworks4
+                                     :local-address (when local-host (host-to-hostname local-host))
+                                     :local-port local-port
+                                     #-(or lispworks4 lispworks5.0) ; >= 5.1
+                                     #-(or lispworks4 lispworks5.0)
+                                     :nodelay nodelay)))
        (if stream
-	   (make-stream-socket :socket (comm:socket-stream-socket stream)
-			       :stream stream)
+           (make-stream-socket :socket (comm:socket-stream-socket stream)
+                               :stream stream)
          ;; if no other error catched by above with-mapped-conditions and still fails, then it's a timeout
          (error 'timeout-error))))
     (:datagram
      (let ((usocket (make-datagram-socket
-		     (if (and host port)
+                     (if (and host port)
                          (with-mapped-conditions ()
                            (connect-to-udp-server (host-to-hostname host) port
                                                   :local-address (and local-host (host-to-hostname local-host))
@@ -345,8 +345,7 @@
                            (open-udp-socket       :local-address (and local-host (host-to-hostname local-host))
                                                   :local-port local-port
                                                   :read-timeout timeout)))
-		     :connected-p (and host port t))))
-       (hcl:flag-special-free-action usocket)
+                     :connected-p (and host port t))))
        usocket))))
 
 (defun socket-listen (host port
@@ -433,6 +432,7 @@
         (fli:with-dynamic-foreign-objects ()
           (multiple-value-bind (error family client-addr client-addr-length)
               (initialize-dynamic-sockaddr host service "udp")
+            (declare (ignore family))
             (when error
               (error "cannot resolve hostname ~S, service ~S: ~A"
                      host service error))