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

[Chun Tian (binghe)]

Author: ctian
Date: Tue Jun 29 08:15:32 2010
New Revision: 527

Log:
LispWorks: fix typo in condition related code.

Modified:
   usocket/trunk/backend/lispworks.lisp

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Tue Jun 29 08:15:32 2010
@@ -68,10 +68,10 @@
     (if usock-err
         (if (subtypep usock-err 'error)
             (error usock-err :socket socket)
-          (signal usock-err :socket))
+          (signal usock-err :socket socket))
       (error 'unknown-error
              :socket socket
-             :real-condition nil))))
+             :real-error nil))))
 
 (defun raise-usock-err (errno socket &optional condition)
   (let* ((usock-err