anchor.diff:  (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))
  
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:                                                             :default
                                                              external-format))
                   (when stream
                     (let ((*load-truename* (truename stream)))
                       (load-from-stream stream wired)))))))))
  
  (defun provide (module-name)
    (pushnew (string module-name) *modules*
  