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:                    :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)))
    (asdf:load-system (library-name (library project))
                      :force-not (asdf:registered-systems)))
  
  
negative.code:              do
                 (install-library-version version libraries-directory)))))))
  
  (defun find-cld-for-library (library-name &key (error-p t))
    (aif (find-library library-name nil)
         it
         ;; else
         (let (cld)
  	 (loop
  	    for cld-repository in (list-cld-repositories)
  	    while (not cld)
  	    do
  	      (let ((repository-cld (find-cld cld-repository
                                                         library-name)))
                           (setf cld (and repository-cld
                                          (load-cld repository-cld)))
                           (when cld
                             (verbose-msg "~A cld found in ~A~%"
                                          library-name
                                          cld-repository))))
  	 (when (and (not cld) error-p)
  	   (error "Couldn't find a cld for ~S library~%" library-name))
  	 cld)))
  
  (defun install-library (library-name
                          &key
  