anchor.diff:                                                              :default
                                                               external-format))
                    (when stream
  -                   (load-from-stream stream wired))))))))
  +                   (let ((*load-truename* (truename stream)))
  +                     (load-from-stream stream wired)))))))))
   
   (defun provide (module-name)
     (pushnew (string module-name) *modules*
  
positive.code:         (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-from-stream filespec wired)))
            (t (let* ((path (merge-pathnames filespec))
                      (*load-pathname* (pathname path))
                      (*load-truename* (pathname path)))
                 (with-open-file (stream filespec
                                         :if-does-not-exist (if if-does-not-exist
                                                                :error
  
negative.code: (defun load-lisp-source (stream)
    (let ((*readtable* *readtable*)
          (*package* *package*)
          (eof (cons nil nil)))
      (loop (let ((form (read stream nil eof)))
              (when (eql form eof) (return))
  