anchor.diff:  
   (defun dependency-locations (system-name &optional
   					   print-system-names-p
  -					   (operation "LOAD-OP"))
  +					   (operation ()))
     "Print the pathname of the system and of the systems needed to operation it.
   
     Operation should be a symbol naming an operation recognized by
  
positive.code:   (unless (find-package "ASDF") (return-from dependency-locations
                                    (format t "I don't know how to find ~
                                              dependencies without asdf.")))
    (when (stringp operation) (setq operation (find-symbol operation "ASDF")))
    (let (printed-systems)
      (labels ((rec (sys)
                 (setq sys (funcall [asdf find-system] sys))
  
negative.code: 		 (format t "~&~S" (funcall [asdf component-pathname] sys))
  		 (when print-system-names-p
  		   (format t ", ~A~&"  (funcall [asdf component-name] sys)))
                   (dolist (sysname (funcall
                                     (or [asdf system-depends-on]
                                         [asdf component-load-dependencies])
                                      sys))
                     (rec sysname)))))
        (rec system-name))))
  
  (defmacro mac (expr)
  