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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb 10 16:34:52 2006
New Revision: 72

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Fix typo.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Fri Feb 10 16:34:52 2006
@@ -30,8 +30,8 @@
                                   +openmcl-error-map+))))
        (if usock-err
            (error usock-err :socket socket)
-         (error 'unknown-error :socket socket :real-erorr condition))))
-    (error (error 'unknown-error :socket socket :real-erorr condition))
+         (error 'unknown-error :socket socket :real-error condition))))
+    (error (error 'unknown-error :socket socket :real-error condition))
     (condition (signal 'unknown-condition :real-condition condition))))
 
 (defun socket-connect (host port)