Author: ehuelsmann Date: Fri Feb 10 10:57:16 2006 New Revision: 66 Modified: usocket/trunk/backend/armedbear.lisp usocket/trunk/test/test-usocket.lisp Log: Fix Armedbear test failures. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Feb 10 10:57:16 2006 @@ -8,8 +8,9 @@ (defun handle-condition (condition &optional socket) + (describe condition) (typecase condition - (error (error 'unkown-error :socket socket :real-error condition)))) + (error (error 'unknown-error :socket socket :real-error condition)))) (defun socket-connect (host port) (let ((usock)) Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 10 10:57:16 2006 @@ -39,8 +39,8 @@ (catch 'caught-error (handler-bind ((usocket:network-unreachable-error #'(lambda (c) (throw 'caught-error nil))) - ;; cmu doesn't report as specific as above - #+(or cmu lispworks) + ;; some lisps don't report as specific as above + #+(or cmu lispworks armedbear) (usocket:unknown-error #'(lambda (c) (throw 'caught-error nil))) (condition @@ -52,8 +52,8 @@ (catch 'caught-error (handler-bind ((usocket:host-unreachable-error #'(lambda (c) (throw 'caught-error nil))) - ;; cmu doesn't report as specific as above - #+(or cmu lispworks) + ;; some lisps don't report as specific as above + #+(or cmu lispworks armedbear) (usocket:unknown-error #'(lambda (c) (throw 'caught-error nil))) (condition