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)