anchor.diff:  (define-condition unknown-condition (usocket-condition)
     ((real-condition :initarg :real-condition
                      :accessor usocket-real-condition))
  -  (:documentation ""))
  +  (:documentation "Condition raised when there's no other - more applicable -
  +condition available."))
   
   
   ;; Mass define and export our errors
  
positive.code:     ((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)))
  
negative.code: (define-condition unknown-error (usocket-error)
    ((real-error :initarg :real-error
                 :accessor usocket-real-error))
    (:documentation "Error raised when there's no other - more applicable -
  error available."))
  
  
  (define-usocket-condition-classes
    (ns-try-again)
    (ns-condition))
  
  (define-condition ns-unknown-condition (ns-condition)
    ((real-error :initarg :real-condition
                 :accessor ns-real-condition))
    (:documentation "Condition raised when there's no other - more applicable -
  condition available."))
  
  (define-usocket-condition-classes
    ;; the no-data error code in the Unix 98 api
    ;; isn't really an error: there's just no data to return.
    ;; with lisp, we just return NIL (indicating no data) instead of
    ;; raising an exception...
    (ns-host-not-found
     ns-no-recovery)
    (ns-error))
  
  (define-condition ns-unknown-error (ns-error)
    ((real-error :initarg :real-error
                 :accessor ns-real-error))
    (:documentation "Error raised when there's no other - more applicable -
  error available."))
  
  (defmacro with-mapped-conditions ((&optional socket) &body body)
    `(handler-case
  