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