anchor.diff:      ((65 113) . host-unreachable-error)))
   
   
  -
  -
   (defun map-errno-condition (errno)
     (cdr (assoc errno +unix-errno-error-map+ :test #'member)))
   
   
   (defun map-errno-error (errno)
     (cdr (assoc errno +unix-errno-error-map+ :test #'member)))
  +
  +
  +(defparameter +unix-ns-error-map+
  +  `((1 . ns-host-not-found-error)
  +    (2 . ns-try-again-condition)
  +    (3 . ns-no-recovery-error)))
  +
  
positive.code: (define-condition unknown-condition (usocket-condition)
    ((real-condition :initarg :real-condition
                     :accessor usocket-real-condition))
    (:documentation ""))
  
  
  ;; Mass define and export our errors
  
negative.code: 
  (in-package :usocket)
  
  ;; Conditions raised by sockets operations
  
  (define-condition socket-condition (condition)
    ((socket :initarg :socket
             :accessor usocket-socket))
    ;;###FIXME: no slots (yet); should at least be the affected usocket...
    (:documentation "Parent condition for all socket related conditions."))
  
  (define-condition socket-error (usocket-condition error)
    () ;; no slots (yet)
    (:documentation "Parent error for all socket related errors"))
  
  (define-condition ns-condition (condition)
    ((host-or-ip :initarg :host-or-ip
                 :accessor host-or-ip))
    (:documentation "Parent condition for all name resolution conditions."))
  
  (define-condition ns-error (ns-condition error)
    ()
    (:documentation "Parent error for all name resolution errors."))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun define-usocket-condition-class (class &rest parents)
  