anchor.diff:      (do-traverse op dep-c collect)))
   
   (defun* do-one-dep (operation c collect required-op required-c required-v)
  -  ;; this function is a thin, error-handling wrapper around
  -  ;; %do-one-dep.  Returns a partial plan per that function.
  +  ;; this function is a thin, error-handling wrapper around %do-one-dep.
  +  ;; Collects a partial plan per that function.
     (loop
       (restart-case
           (return (%do-one-dep operation c collect
  
positive.code:                       (if (member :64bit *features*) "-64bit" ""))
      #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*)
      #+clisp (subseq s 0 (position #\space s))
      #+clozure (format nil "~d.~d-fasl~d"
                        ccl::*openmcl-major-version*
                        ccl::*openmcl-minor-version*
                        (logand ccl::fasl-version #xFF))
  
negative.code:      (merge-component-name-type (string-downcase name) :type type :defaults defaults))
      (string
       (multiple-value-bind (relative path filename)
           (component-name-to-pathname-components name :force-directory (eq type :directory)
                                                  :force-relative t)
         (multiple-value-bind (name type)
             (cond
               ((or (eq type :directory) (null filename))
  