anchor.diff:  
   (defclass http-cld-address (cld-address)
     ((url :initarg :url
  -	:initform (error "Provide the cld url") 
  -	:accessor cld-url
  -	:documentation "The cld http url"))
  +        :initform (error "Provide the cld url")
  +        :accessor cld-url
  +        :documentation "The cld http url"))
     (:documentation "A cld in an http url"))
   
   (defmethod print-object ((cld-address http-cld-address) stream)
  
positive.code: (in-package :cldm)
  
  ;; (unless *load-truename*
  ;;   (error "This file must be LOADed to set up CLDM."))
  
  ;; (defvar *cldm-home*
  ;;   (make-pathname :name nil :type nil
  ;;                  :defaults *load-truename*))
  
  (defparameter *cld-libraries* (make-hash-table :test #'equalp))
  
  (defparameter *repositories-directory*
  
negative.code: 
  (defclass git-cld-address (cld-address)
    ((git-url :initarg :git-url
              :initform (error "Provide the git url")
              :accessor git-url
              :documentation "The git repository address. i.e. git://git.foo.com/project.git")
     (pathname :initarg :pathname
               :initform (error "Provide the pathname to the cld file")
               :accessor cld-pathname
               :documentation "The pathname to the cld file"))
    (:documentation "A cld in a git repository"))
  
  (defmethod print-object ((cld-address git-cld-address) stream)
    (print-unreadable-object (cld-address stream :type t :identity t)
      (format stream "~A:~A"
              (git-url cld-address)
              (cld-pathname cld-address))))
  
  (defclass pathname-cld-address (cld-address)
    ((pathname :initarg :pathname
               :initform (error "Provide the cld pathname")
               :accessor cld-pathname
               :documentation "The pathname of the cld file"))
    (:documentation "A cld in a local filesystem pathname"))
  
  (defmethod print-object ((cld-address pathname-cld-address) stream)
  