anchor.diff:  (defparameter *load-init-error-message* "Error: we could not load the init file")
   (defparameter *load-init-type-error-message* (str:concat *load-init-error-message* " because of a type error."))
   
  -(declaim (ftype (function ((or string stream) &key (:interactive t))) load-lisp-file))
  -(defun load-lisp-file (file &key interactive) ; TODO: Rename to `load-lisp'.
  +(declaim (ftype (function (trivial-types:pathname-designator &key (:interactive t)))
  +                load-lisp))
  +(defun load-lisp (file &key interactive)
     "Load the Lisp FILE (or stream).
      If FILE is \"-\", read from the standard input.
      If INTERACTIVE is t, allow the debugger on errors. If :running, show
  
positive.code:                                  (make-minibuffer
                                    :input-prompt "Load file"
                                    :show-completion-count nil)))
      (load-lisp-file file-name-input :interactive interactive)))
  
  (define-command load-init-file (&key (init-file (init-file-path))
                                  (interactive :running))
    "Load or reload the init file.
     If INTERACTIVE is t, allow the debugger on errors.
     If :running, show an error but don't quit the Lisp process."
    (load-lisp-file init-file :interactive interactive))
  
  (defun eval-expr (expr)
    "Evaluate the form EXPR (string) and print the result of the last expresion."
  
negative.code:         (when (equal "" file)
            (error "Can't load empty file name."))
          (cond
            ((and (not (streamp file)) (string= (pathname-name file) "-"))
             (progn
               (format t "Loading Lisp from standard input...")
               (loop for object = (read *standard-input* nil :eof)
  