anchor.diff:       (sys-bin-dir (mapcar (lambda (path)
                               (merge-pathnames
                                (make-pathname :type (pathname-type path))
  -                             (merge-pathnames (enough-namestring src-path sys-path)
  +                             (merge-pathnames (enough-namestring src-path
  +                                                                 sys-path)
                                                 sys-bin-dir)))
                             paths))
        (t           paths))))
  
positive.code:   (let* ((system (find-system system))
          (path   (pathname value))
          (sysname (component-name system))
          (existing (find sysname *system-bin-directories* :key #'car :test #'equalp)))
      (cond
       (existing (setf (cdr existing) path))
       (t (push (cons sysname path) *system-bin-directories*)))))
  
negative.code: ;;
  (in-package asdf)
  
  (defun components-in-system (system)
   (remove-duplicates 
     (loop for (nil . component) in (traverse (make-instance 'operation)
  