anchor.diff:          (when (equal "" file)
             (error "Can't load empty file name."))
           (cond
  -          ((and (stringp file) (string= (pathname-name file) "-"))
  +          ((and (not (streamp file)) (string= (pathname-name file) "-"))
              (progn
                (format t "Loading Lisp from standard input...")
                (loop for object = (read *standard-input* nil :eof)
  
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:     (format t "Next version ~a~&" +version+)
      (setf *session* (derive-session *session*))
      (unless (getf *options* :no-init)
        (load-lisp init-file :interactive t))
      (setf *browser* (make-instance *browser-class*
                                     :startup-timestamp startup-timestamp))
      (when (single-instance-p *browser*)
  