anchor.diff:     :shcl/core/expand
      :shcl/core/exit-info :shcl/core/iterator :shcl/core/fd-table
      :shcl/core/dispatch-table)
  +  (:import-from :shcl/core/sequence #:walkable-to-list)
     (:import-from :shcl/core/data #:define-data #:define-cloning-setf-expander)
     (:import-from :shcl/core/command #:define-special-builtin)
     (:import-from :shcl/core/evaluate #:evaluation-form-iterator #:translate #:expansion-preparation-form)
  
positive.code:    #:evaluate-constant-shell-string #:exit-failure #:check-result #:capture
     #:*splice-table*))
  (in-package :shcl/core/lisp-interpolation)
  
  (define-data lisp-form (a-word)
    ((form
  
negative.code: #$ <shell expression> #$"
    (declare (ignore subchar arg))
    (let ((*proper-end-found* nil))
      (let* ((raw-tokens (tokens-in-stream stream :readtable *interpolation-table*))
             (tokens (walkable-to-list raw-tokens)))
  
        (unless *proper-end-found*
          (error "Expected #$ before EOF"))
        `(parse-token-sequence ,tokens))))
  
  (defun enable-reader-syntax ()
    "Enable use of the #$ reader macro for reading shell commands."
  