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