anchor.diff:         (output-files 
   	(make-instance 
   	 'compile-op
  -	 :pathname (system-relative-pathname 'asdf-binary-locations "dev"))
  +	 :pathname (system-relative-pathname 'abl-test-system  "dev"))
  +	c)))
  +     (namestring
  +       (concatenate 
  +	'string
  +	(namestring *default-toplevel-directory*)
  +	(implementation-specific-directory-name)
  +	(namestring (system-relative-pathname 'abl-test-system  "dev"))
  +	"/main." fasl-type)))))
  +
  +;;;;
  +
  +(deftestsuite map-all-source-files (asdf-binary-locations-test)
  +  ())
  +
  +(addtest (map-all-source-files)
  +  try-nil
  +  (let ((c (find-component-using-path :abl-test-system '("dev" "test-source")))
  +	(*map-all-source-files* nil))
  +    (ensure-same
  +     (namestring
  +      (first
  +       (output-files 
  +	(make-instance 
  +	 'compile-op
  +	 :pathname (system-relative-pathname 'abl-test-system  "dev"))
   	c)))
        (namestring
         (system-relative-pathname 
  -       'asdf-binary-locations 
  -       (concatenate 
  -	'string "scratch/"
  -	(implementation-specific-directory-name)
  -	(namestring (system-relative-pathname 'asdf-binary-locations "dev"))
  -	"/main." fasl-type))))))
  +       'abl-test-system 
  +       (concatenate 'string "/dev/" "/test-source.xxx"))))))
  +
  +(addtest (map-all-source-files)
  +  try-true
  +  (let ((c (find-component-using-path :abl-test-system
  +				      '("dev" "test-source")))
  +	(*map-all-source-files* t))
  +    (ensure-same
  +     (namestring
  +      (first
  +       (output-files 
  +	(make-instance 
  +	 'compile-op
  +	 :pathname (system-relative-pathname 'abl-test-system  "dev"))
  +	c)))
  +     (namestring
  +      (system-relative-pathname 
  +       'abl-test-system 
  +       (concatenate 'string "/dev/"	
  +		    (implementation-specific-directory-name)
  +		    "/test-source.xxx"))))))
  +
  +;;;;
   
   (defmethod find-component-using-path ((system symbol) path)
     (find-component-using-path (find-system system) path))
  
positive.code: (in-package #:asdf-binary-locations-tests)
  
  (deftestsuite asdf-binary-locations-test () 
  
negative.code:     (system-relative-pathname 'asdf-binary-locations "scratch/"))
     (*centralize-lisp-binaries* nil)
     (*include-per-user-information* nil)
     (*map-all-source-files* nil))
    (:setup 
     (load (system-relative-pathname 'asdf-binary-locations-test 
  				   "tests/abl-test-system.asd"))))
  
  (deftestsuite centralize-binaries (asdf-binary-locations-test)
    ())
  
  (addtest (centralize-binaries)
    try-nil
    (let ((c (find-component-using-path :abl-test-system '("dev" "main"))))
      (ensure-same
       (namestring
        (first
         (output-files 
  	(make-instance 
  	 'compile-op
  	 :pathname (system-relative-pathname 'abl-test-system  "dev"))
  	c)))
       (namestring
        (system-relative-pathname 
         'abl-test-system 
         (concatenate 'string "/dev/"
  		    (implementation-specific-directory-name)
  		    "/main." fasl-type))))))
  
  (addtest (centralize-binaries)
    try-true
    (let ((c (find-component-using-path :abl-test-system '("dev" "main")))
  	(*centralize-lisp-binaries* t))
      (ensure-same
       (namestring
  