anchor.diff:                        (if (member :64bit *features*) "-64bit" ""))
       #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*)
       #+clisp (subseq s 0 (position #\space s))
  -    #+clozure (format nil "~d.~d-fasl~d"
  +    #+clozure (format nil "~d.~d-f~d" ; shorten for windows
                         ccl::*openmcl-major-version*
                         ccl::*openmcl-minor-version*
                         (logand ccl::fasl-version #xFF))
  
positive.code: with a different configuration, so the configuration would be re-read then."
    (setf *source-registry* '())
    (values))
  
  (defun* validate-source-registry-directive (directive)
    (unless
  
negative.code:   (destructuring-bind (&key (pathname nil pathname-arg-p) (class 'system)
                              defsystem-depends-on &allow-other-keys)
        options
      (let ((component-options (remove-keys '(:class) options)))
        `(progn
           ;; system must be registered before we parse the body, otherwise
           ;; we recur when trying to find an existing system of the same name
  