anchor.diff:          t))))
   
   (defvar *included-names* '("init"))
  -(defparameter *include-path* *load-pathname*)
  +(defparameter *include-path* (or #.*compile-file-pathname* *load-pathname*))
   
   (defun include (names &optional provide)
     (loop
  
positive.code:         until (or (not x) (eq x #\newline)))
    (values))
  
  (compile 'shebang-reader)
  (defun ignore-shebang ()
    (set-dispatch-macro-character #\# #\! #'shebang-reader))
  
  
negative.code: 
  (let ((symbol (ignore-errors (read-from-string "asdf::*user-cache*")))
        (impl (substitute #\- #\/ (opt "impl"))))
    (when (opt "asdf.version")
      (setq impl (format nil "~A-~A" impl (opt "asdf.version"))))
    (when (and symbol (boundp symbol))
      (cond ((listp (symbol-value symbol))
             (set symbol (append (symbol-value symbol) (list impl))))
  