[usocket-cvs] r66 - in usocket/trunk: backend test

[ehuelsmann at common-lisp.net]

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