anchor.diff:                (let ((result (evaluate tree)))
                   (declare (ignorable result))
                   (debug-log 'status "RESULT ~A" result))
  -            (skip ())))
  +            (skip ()))
  +          (display-prompt *standard-input* *standard-output*))
         (die () (sb-ext:exit :code 1)))))
  
positive.code:                  :type 'token-iterator)
     form-queue))
  
  (defun restartable-command-iterator (raw-stream form-queue)
    (let* ((stream (debug-char-stream raw-stream))
           (tokens (main-token-iterator stream form-queue))
  
negative.code:   (enable-shell-splice-syntax)
    (let* ((form-queue (make-queue))
           (commands (restartable-command-iterator *standard-input* form-queue)))
      (display-prompt *standard-input* *standard-output*)
      (restart-case
          (do-iterator (tree commands)
            (loop
  