anchor.diff:                 (push pathname asdf:*central-registry*))))))
     (verbose-msg "Done.~%"))
   
  -(defun load-library (library-name &key version cld
  -				    (verbose *verbose-mode*))
  +(defun load-library (library-name
  +		     &key
  +		       version
  +		       cld
  +		       (verbose *verbose-mode*)
  +		       (solving-mode *solving-mode*))
     "Tries to find a cld for the library and load it.
      Then setup the library and its dependencies"
  -  (let ((*verbose-mode* verbose))
  +  (let ((*verbose-mode* verbose)
  +	(*solving-mode* solving-mode))
       (if cld
   	(progn
   	  (load-cld cld)
  
positive.code:                       (if (not (library-version dependency))
                            ;; No library version specified in the dependency
                            ;; Use the latest version
  			  (progn
  			    (warn "Library version not specified for ~A. Calculating dependencies with the latest version!!" dependency)
  			    (first (library-versions library)))
                            ;; else, use the library version specified
                            (find-cld-library-version
                             library
  
negative.code: 			 ;; we can signal an error, or ignore this (signal a warning), as
  			 ;; the library version may be loadable from the user system repository
  			 ;; anyway (.i.e. Quicklisp)
  			 (ecase *solving-mode*
  			   (:lenient (warn "Couldn't find a cld for ~A" dependency))
  			   (:strict (error "Couldn't find a cld for ~A" dependency)))))
                                          ;else
                     (load-dependency-cld dependency cld)))))
      (loop for dependency in (dependencies library-version)
  