anchor.diff:  		       cld
   		       (verbose *verbose-mode*)
   		       (solving-mode *solving-mode*)
  -		       (clean-asdf-environment *clean-asdf-environment*))
  +		       (clean-asdf-environment *clean-asdf-environment*)
  +		       (load-asdf-system t))
     "Tries to find a cld for the library and load it.
      Then setup the library and its dependencies"
     (let ((*verbose-mode* verbose)
  
positive.code:       (if cld
  	  (progn
  	    (setup library-name version)
  	    (asdf:operate 'asdf:load-op library-name)
  	    t)
  	  ;; else
  	  (if (find-cld-library library-name nil)
  
negative.code: 		(if cld
  		    (progn
  		      (setup library-name version)
  		      (when load-asdf-system
  			(asdf:operate 'asdf:load-op library-name))
  		      t)
  		    (error "Couldn't find a cld for ~S library~%" library-name))))))))
  
  