anchor.diff:                         (clean-asdf-environment *clean-asdf-environment*)
                          (libraries-directory *libraries-directory*)
                          (clear-registered-libraries t))
  -  "Installs a library if not present, and loads it in the current lisp image"
  -  (install-library library-name
  -                   :version version
  -                   :cld cld
  -                   :verbose verbose
  -                   :solving-mode solving-mode
  -                   :libraries-directory libraries-directory
  -                   :clear-registered-libraries clear-registered-libraries)
     (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 :force-not (asdf:registered-systems)))
   
   (defun install-library-dependencies (library &key version
  
positive.code:              do
                 (install-library-version version libraries-directory)))))))
  
  
  (defun install-library (library-name
                          &key
  
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
  