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