[usocket-cvs] r186 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Jan 19 19:19:32 2007
New Revision: 186

Modified:
   usocket/trunk/backend/cmucl.lisp
Log:
Don't raise NIL as an error, return it instead.

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Fri Jan 19 19:19:32 2007
@@ -128,11 +128,14 @@
         entry
       ;;###The constants below work on *most* OSes, but are defined as the
       ;; constants mentioned in C
-      (error
-       (second (assoc errno '((1 ns-host-not-found-error) ;; HOST_NOT_FOUND
+      (let ((exception
+             (second (assoc errno
+                            '((1 ns-host-not-found-error) ;; HOST_NOT_FOUND
                               (2 ns-no-recovery-error)    ;; NO_DATA
                               (3 ns-no-recovery-error)    ;; NO_RECOVERY
-                              (4 ns-try-again))))))))      ;; TRY_AGAIN
+                              (4 ns-try-again))))))       ;; TRY_AGAIN
+        (when exception
+          (error exception))))))
 
 
 (defun get-host-by-address (address)