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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Feb 12 14:26:14 2006
New Revision: 85

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Fix compilation error.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Sun Feb 12 14:26:14 2006
@@ -27,7 +27,7 @@
   (let ((usock-err (cdr (assoc condition-id +openmcl-error-map+))))
     (if usock-err
         (error usock-err :socket socket)
-      (error 'unknown-error :socket socket :real-error real-condition)))
+      (error 'unknown-error :socket socket :real-error real-condition))))
 
 (defun handle-condition (condition &optional socket)
   (typecase condition