anchor.diff:       (if (eq :eof (lexer-context-next-char context))
            (error 'unexpected-eof)
            (lexer-context-shell-extensible-read context :readtable readtable)))
  -  (lexer-context-delimit context))
  +  (shell-lexer-context-delimit context))
   
   (defun read-double-quote (context)
     (let* ((stream (lexer-context-stream context))
            (readtable (subtable (lexer-context-readtable context) #(double-quote)))
            (inner-context
  -          (make-instance 'lexer-context :stream stream :readtable (lexer-context-readtable context)))
  +          (make-instance 'shell-lexer-context :stream stream :readtable (lexer-context-readtable context)))
            (token (handler-case
                       (lexer-context-extensible-read-loop inner-context readtable)
                     (unexpected-eof (e)
  
positive.code:                ;; can be used with the current characters to form an
                 ;; operator, it shall be used as part of that (operator)
                 ;; token.
                 ((let ((simple-word (lexer-context-simple-word context)))
                    (and simple-word
                         (operator-p simple-word)
                         (operator-p (concatenate 'string simple-word (string (next-char))))))
                  (lexer-context-extend-word context)
                  (again))
  
                 ;; If the previous character was used as part of an
  
negative.code: 
  (defun handle-quote (stream initiation-sequence context)
    (declare (ignore initiation-sequence))
    (shell-lexer-context-add-part context (read-single-quote stream))
    t)
  
  (defun handle-backslash (stream initiation-sequence context)
    (declare (ignore stream initiation-sequence))
    (let ((next-char (lexer-context-next-char context)))
      (unless (equal next-char #\Linefeed)
        (shell-lexer-context-add-part context (make-escaped-character next-char))))
    (lexer-context-consume-character context)
    t)
  
  (defun handle-double-quote (stream initiation-sequence context)
    (declare (ignore stream initiation-sequence))
    (shell-lexer-context-add-part context (read-double-quote context))
    t)
  
  (defun handle-dollar (stream initiation-sequence context)
  