anchor.diff:  
   (optimization-settings)
   
  -(defparameter *shell-readtable* +standard-shell-readtable+)
  +(defparameter *shell-readtable* +standard-shell-readtable+
  +  "The shell readtable used by the main shell loop.
   
  -(defparameter *fresh-prompt* t)
  +This only changes how `shcl/shell/main:main' reads shell commands.
  +Macros and functions which consume shell expressions are not impacted
  +in any way by this variable.")
  +
  +(defparameter *fresh-prompt* t
  +  "If non-nil, then the next time the user is prompted for input, the
  +standard prompt should be displayed.
  +
  +When nil, a prompt indicating that the previous line is incomplete
  +should be displayed.")
   
   (defun main-prompt ()
  +  "Return the string which should be displayed as the prompt for the
  +next line.
  +
  +See `*fresh-prompt*'."
     (let ((result (if *fresh-prompt* "shcl> " "> ")))
       (setf *fresh-prompt* nil)
       result))
   
   (defun main-token-iterator (stream form-queue)
  +  "Return an iterator that produces the tokens found in `stream'.
  +
  +Tokens are read using `*shell-readtable*', and their bake forms (see
  +`shcl/core/baking:bake-tokens') are added to form-queue."
     (lookahead-iterator-wrapper
      (bake-tokens
       (make-iterator ()
  
positive.code:                (reset-token-iterator)
                 (go start))))))))
  
  (defparameter *enable-lisp-splice* nil)
  (defparameter *debug* nil)
  (defparameter *help* nil)
  
  (defparameter *options*
    '((*enable-lisp-splice* nil "Extend shell language to support splicing lisp expressions")
      (*debug* nil "Run a SWANK server")
      (*help* nil "Show list of options")))
  
  (defmacro with-options ((argv &key (options '*options*)) &body body)
    (let ((vars (gensym "VARS"))
          (values (gensym "VALUES"))
          (command (gensym "COMMAND"))
  
negative.code:     (funcall (intern "INIT" (find-package "SWANK-LOADER")))))
  
  (defun main ()
    "Start running SHCL's shell.
  
  This function assumes that SHCL \"owns\" the process.  That means that
  the process environment won't change without SHCL's knowledge and that
  SHCL has total control over the process environment.  This means, for
  example, that...
  * SHCL is soley responsible for all file descriptor manipulations
  * SHCL may install or remove any signal handlers it wishes"
    (observe-revival)
    (with-options ((uiop:raw-command-line-arguments))
      (when *help*
  