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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Feb 11 17:18:52 2006
New Revision: 78

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Adjust package prefixes.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Sat Feb 11 17:18:52 2006
@@ -25,9 +25,10 @@
 
 (defun handle-condition (condition &optional socket)
   (typecase condition
-    (socket-error
-     (let ((usock-err (cdr (assoc (socket:socket-error-identifier condition)
-                                  +openmcl-error-map+))))
+    (openmcl-socket:socket-error
+     (let ((usock-err
+            (cdr (assoc (openmcl-socket:socket-error-identifier condition)
+                        +openmcl-error-map+))))
        (if usock-err
            (error usock-err :socket socket)
          (error 'unknown-error :socket socket :real-error condition))))
@@ -38,10 +39,10 @@
   (let ((sock))
     (with-mapped-conditions (sock)
       (setf sock
-            (socket:make-socket :remote-host (host-to-hostname host)
-                                :remote-port port))
-      (socket:socket-connect sock))))
+            (openmcl-socket:make-socket :remote-host (host-to-hostname host)
+                             :remote-port port))
+      (openmcl-socket:socket-connect sock))))
 
 (defmethod socket-close ((usocket usocket))
   (with-mapped-conditions (usocket)
-    (socket:close (socket usocket))))
+    (close (socket usocket))))