Author: ehuelsmann Date: Fri Feb 10 15:57:25 2006 New Revision: 69

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 Fri Feb 10 15:57:25 2006 @@ -32,7 +32,7 @@ (error usock-err :socket socket) (error 'unknown-error :socket socket :real-erorr condition)))) (error (error 'unknown-error :socket socket :real-erorr condition)) - (condition (signal 'unkown-condition :real-condition condition)))) + (condition (signal 'unknown-condition :real-condition condition))))

(defun socket-connect (host port) (let ((sock))