anchor.diff:          (sys.c::*optimize-policy* (copy-list sys.c::*optimize-policy*)))
       (cond ((streamp filespec)
              (let* ((*load-pathname* (ignore-errors (pathname filespec)))
  -                  (*load-truename* (ignore-errors (pathname filespec))))
  +                  (*load-truename* (ignore-errors (truename filespec))))
                (load-from-stream filespec wired)))
             (t (let* ((path (merge-pathnames filespec))
  -                    (*load-pathname* (pathname path))
  -                    (*load-truename* (pathname path)))
  +                    (*load-pathname* (pathname path)))
                  (with-open-file (stream filespec
                                          :if-does-not-exist (if if-does-not-exist
                                                                 :error
  
positive.code: (defun load-lisp-source (stream)
    (let ((*readtable* *readtable*)
          (*package* *package*)
          (*load-truename* (ignore-errors (pathname stream)))
          (*load-pathname* (ignore-errors (pathname stream)))
          (eof (cons nil nil)))
      (loop (let ((form (read stream nil eof)))
              (when (eql form eof) (return))
  
negative.code:                                                             :default
                                                              external-format))
                   (when stream
                     (let ((*load-truename* (truename stream)))
                       (load-from-stream stream wired)))))))))
  
  (defun provide (module-name)
    (pushnew (string module-name) *modules*
  