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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Feb 16 18:51:09 2008
New Revision: 311

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Nameservice condition/error mapping to usocket conditions/errors.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sat Feb 16 18:51:09 2008
@@ -159,11 +159,11 @@
     (sb-bsd-sockets:network-unreachable-error . network-unreachable-error)
     (sb-bsd-sockets:operation-timeout-error . timeout-error)
     (sb-bsd-sockets:socket-error . ,#'map-socket-error)
+
     ;; Nameservice errors: mapped to unknown-error
-;;    (sb-bsd-sockets:no-recovery-error . network-reset-error)
-;;    (sb-bsd-sockets:try-again-condition ...)
-;;    (sb-bsd-sockets:host-not-found ...)
-    ))
+    (sb-bsd-sockets:no-recovery-error . ns-no-recovery-error)
+    (sb-bsd-sockets:try-again-condition . ns-try-again-condition)
+    (sb-bsd-sockets:host-not-found . ns-host-not-found-error)))
 
 (defun handle-condition (condition &optional (socket nil))
   "Dispatch correct usocket condition."