anchor.diff:        (if cld
   	  (progn
   	    (setup library-name version)
  -	    (asdf:operate 'asdf:load-op library-name)
  +	    (when load-asdf-system
  +	      (asdf:operate 'asdf:load-op library-name))
   	    t)
   	  ;; else
   	  (if (find-cld-library library-name nil)
  
positive.code: 		(if cld
  		    (progn
  		      (setup library-name version)
  		      (asdf:operate 'asdf:load-op library-name)
  		      t)
  		    (error "Couldn't find a cld for ~S library~%" library-name))))))))
  
  
negative.code: 		       cld
  		       (verbose *verbose-mode*)
  		       (solving-mode *solving-mode*)
  		       (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)
  