anchor.diff:           ,@body))))
   
   (defun run-shell-commands-in-stream (stream)
  +  "Read and evaluate shell commands contained within the given
  +stream.
  +
  +This function will not display prompts.  You probably want to provide
  +a stream like the one created by `shcl/shell/prompt:make-editline-stream'."
     (let* ((form-queue (make-queue))
            (commands (restartable-command-iterator stream form-queue))
            (*fresh-prompt* t)
  
positive.code:     (funcall (intern "INIT" (find-package "SWANK-LOADER")))))
  
  (defun main ()
    (observe-revival)
    (with-options ((uiop:raw-command-line-arguments))
      (when *help*
  
negative.code: 
  (optimization-settings)
  
  (defparameter *shell-readtable* +standard-shell-readtable+
    "The shell readtable used by the main shell loop.
  
  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 ()
  