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