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: 		  (progn
  		    (load-cld cld)
  		    (setup library-name version)
  		    (asdf:operate 'asdf:load-op library-name)
  		    t)
  		  (error "Couldn't find a cld for ~S library~%" library-name)))))))
  
  (defun load-library-version (library-version &key reload)
  