anchor.diff:  
   ;;;
   ;;; This file contains some handy extensions to ASDF.
  -;;;
  +;;;  
  +;;; EXPORTED FUNCTIONS:
   ;;;  LOAD-SYSTEM: syntactic sugar for (asdf:oos 'asdf:load-op __)
   ;;;  FILES-IN-SYSTEM: analogous to same fn name in MK-DEFSYSTEM, returns all files
  +;;;  DELETE-BINARIES: deletes all the fasl files of a system (leaves directories alone)
  +;;;  SYSTEM-BIN-DIRECTORY: redirects compiler output for a particular system 
  +;;;
   ;;;  SYSDEF-CENTRAL-REGISTRY-SUBSEARCH: enables automatic search of central registry
   ;;;    subdirs, based on name of system. 
   ;;;           E.g., (asdf:load-system 'mysys) finds and loads 
   ;;;                      "/a/central/registry/path/mysys/mysys.asd"
  -;;;  SYSTEM-BIN-DIRECTORY: redirects compiler output for a particular system 
  -;;;            
  -;;;                                    
  +;;;    NOTE: ASDF+ adds this fn to the ASDF:*SYSTEM-DEFINITION-SEARCH-FUNCTIONS* 
   ;;;                                     
   ;;;
   ;;;
  
positive.code: 
  (export 'files-in-system)
  (defun files-in-system (system)
    (remove-duplicates 
     (loop for (op . component) in (traverse (make-instance 'operation)
                                             (find-system system))
           when (and (typep component 'component)
                     (stringp (pathname-name (component-pathname component))))
           collect (component-pathname component)) :test #'equalp))
  
  (defun sysdef-central-registry-subsearch (name)
    "Looks in each *central-registry* folder for NAME.asd or system.asd in 
  
negative.code:                           paths))
       (t           paths))))
  
  (export 'delete-binaries)
  (defun delete-binaries (system &optional (error t))
    "Deletes binary files for the system; does not delete directories"
    (let* ((op           (make-instance 'compile-op))
           (components   (components-in-system system))
           (fasls        (mapcan (lambda (c)
                                   (output-files op c))
                                 components))
           (count        0))
      (dolist (fasl fasls count)
        (when (and fasl (probe-file fasl))
          (if error
              (delete-file fasl)
            (ignore-errors
              (delete-file fasl)))
          (incf count)))))
  
  ;;;
  ;;; SYNTACTIC SUGAR: ASDF:LOAD-SYSTEM
  ;;;
  