anchor.diff:    (print-unreadable-object (version-dependency stream :type t :identity t)
       (format stream "~A-~A (~A)"
               (library-name version-dependency)
  -            (library-version version-dependency)
  +            (if (library-version version-dependency)
  +		(library-version version-dependency)
  +		"<without version>")
               (cld version-dependency))))
   
   (defmacro deflibrary (name &body options)
  
positive.code: 	(progn
  	  (load-cld cld)
  	  (setup library-name version)
  	  (asdf:operate 'asdf:load-op library-name))
  	;; else
  	(if (find-cld-library library-name nil)
  	    (setup library-name version)
  
negative.code: (defun print-library-version (library-version stream)
    (format stream "~A-~A~@[ (~A)~]"
            (library-name (library library-version))
            (if (version library-version)
  	      (version library-version)
  	      "<without version>")
            (stability library-version)))
  
  (defmethod print-object ((library-version cld-library-version) stream)
  