anchor.diff:    (let ((startup-timestamp (local-time:now))
           (startup-error-reporter nil))
       (format t "Next version ~a~&" +version+)
  -    (if (getf *options* :verbose)
  -        (progn
  -          (log:config :debug)
  -          (format t "Arguments parsed: ~a and ~a~&" *options* free-args))
  -        (log:config :pattern "<%p> [%D{%H:%M:%S}] %m%n"))
   
       (unless (or (getf *options* :no-init)
                   (not (expand-path *init-file-path*)))
  
positive.code:     (setf *browser* (make-instance *browser-class*
                                     :startup-error-reporter-function startup-error-reporter
                                     :startup-timestamp startup-timestamp))
      (when (expand-path *socket-path*)
        (bind-socket-or-quit free-args))
      (ffi-initialize *browser* free-args startup-timestamp)))
  
negative.code:              (cond
                 ((and (not (streamp file)) (string= (pathname-name file) "-"))
                  (progn
                    (log:info "Loading Lisp from standard input.")
                    (loop for object = (read *standard-input* nil :eof)
                          until (eq object :eof)
                          do (eval object))))
                 ((streamp file)
                  (load file))
                 ((uiop:file-exists-p file)
                  (log:info "Loading Lisp file ~s." file)
                  (load file)))))
        (if *keep-alive*
            (safe-load)
  