anchor.diff:  
   (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)))))
  +;; Conditions raised by sockets operations
   
  -(define-condition usocket-condition (condition)
  +(define-condition socket-condition (condition)
     ((socket :initarg :socket
              :accessor usocket-socket))
     ;;###FIXME: no slots (yet); should at least be the affected usocket...
  -  (:documentation ""))
  +  (:documentation "Parent condition for all socket related conditions."))
   
  -(define-condition usocket-error (usocket-condition error)
  +(define-condition socket-error (usocket-condition error)
     () ;; no slots (yet)
  -  (:documentation ""))
  +  (: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)
  
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-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
  