anchor.diff:      (system-relative-pathname 'asdf-binary-locations "scratch/"))
      (*centralize-lisp-binaries* nil)
      (*include-per-user-information* nil)
  -   (*map-all-source-files* 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 :asdf-binary-locations '("dev" "main"))))
  +  (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 'asdf-binary-locations "dev"))
  +	 :pathname (system-relative-pathname 'abl-test-system  "dev"))
   	c)))
        (namestring
         (system-relative-pathname 
  -       'asdf-binary-locations 
  -       (concatenate 'string "dev/"
  +       'abl-test-system 
  +       (concatenate 'string "/dev/"
   		    (implementation-specific-directory-name)
   		    "/main." fasl-type))))))
   
   (addtest (centralize-binaries)
     try-true
  -  (let ((c (find-component-using-path :asdf-binary-locations '("dev" "main")))
  +  (let ((c (find-component-using-path :abl-test-system '("dev" "main")))
   	(*centralize-lisp-binaries* t))
       (ensure-same
        (namestring
  
positive.code:        (output-files 
  	(make-instance 
  	 'compile-op
  	 :pathname (system-relative-pathname 'asdf-binary-locations "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))))))
  
  (defmethod find-component-using-path ((system symbol) path)
    (find-component-using-path (find-system system) path))
  
negative.code: #|
  
  Wow, these tests sure are long winded... (and confusing)
  
  |#
  
  (in-package #:asdf-binary-locations-tests)
  
  (deftestsuite asdf-binary-locations-test () 
  