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: 
  (in-package :usocket)
  
  ;; (define-condition usocket-error (error)
  ;;   ((real-condition
  ;;     :reader real-condition
  ;;     :initarg :real-condition)
  ;;    (socket
  ;;     :reader socket
  ;;     :initarg :socket))
  ;;   (:report (lambda (c stream)
  ;;              (format stream "Error (~A) occured in socket: ~A."
  ;;                      (real-condition c) (socket c)))))
  
  (define-condition usocket-condition (condition)
    ((socket :initarg :socket
             :accessor usocket-socket))
    ;;###FIXME: no slots (yet); should at least be the affected usocket...
    (:documentation ""))
  
  (define-condition usocket-error (usocket-condition error)
    () ;; no slots (yet)
    (:documentation ""))
  
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun define-usocket-condition-class (class &rest parents)
  
negative.code: (define-condition unknown-condition (usocket-condition)
    ((real-condition :initarg :real-condition
                     :accessor usocket-real-condition))
    (:documentation "Condition raised when there's no other - more applicable -
  condition available."))
  
  
  ;; Mass define and export our errors
  