anchor.diff:      (make-safe-dir-name
        (feature-select '(:allegro :clisp :lispworks :sbcl :cmucl)
                        (lisp-implementation-type))
  -     #+:allegro EXCL::*COMMON-LISP-VERSION-NUMBER* 
  -     #+(and :clisp :win32) (posix:version-major (posix:version))
  -     #+:lispworks system::*major-version-number*
  +     #+allegro EXCL::*COMMON-LISP-VERSION-NUMBER* 
  +     #+clisp (posix:version-major (posix:version))
  +     #+lispworks system::*major-version-number*
        #-(or :allegro :lispworks :clisp) (lisp-implementation-version)
        (feature-select '(:mswindows :win32 :windows :mac :macos 
                          :macosx :linux :bsd :sgi :irix :unix)
  
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
  ;;;
  