anchor.diff:                     :clear-registered-libraries clear-registered-libraries
                      :interactive interactive)
     (when clean-asdf-environment
  -    (setf asdf:*central-registry* nil)
  -    (asdf:clear-source-registry)
  -    (asdf:clear-configuration)
  -    (setf asdf:*system-definition-search-functions* (list 'ASDF/FIND-SYSTEM:SYSDEF-CENTRAL-REGISTRY-SEARCH)))
  +    (clean-asdf-environment))
     (asdf:load-system (library-name (library project))
                       :force-not (asdf:registered-systems)))
   
  
positive.code:         (pbo-solve-library-versions library-version
                                      library-versions-involved)))))
  
  (defun load-library (library-name
                       &key
                         version
  
negative.code:     (when clear-registered-libraries
        (clear-registered-libraries))
      (with-download-session ()
        (let ((version (when version
                         (read-version-from-string version))))
  	(if cld 
  	    (load-cld (parse-cld-address cld))
  	    (find-cld-for-library library-name))
  	(install-library-dependencies library-name
  				      :version version
  				      :libraries-directory libraries-directory
  				      :interactive interactive)))))
          
  (defmethod load-project ((directory pathname)
                           &key
                             version
  