Author: ehuelsmann Date: Sun Feb 12 14:58:42 2006 New Revision: 86 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 Sun Feb 12 14:58:42 2006 @@ -35,7 +35,7 @@ (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) (ccl::socket-creation-error #| ugh! |# - (raise-error-from-id (ccl::socket-creationg-error-idenitifier condition) + (raise-error-from-id (ccl::socket-creationg-error-identifier condition) socket condition)) (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition))))