anchor.diff:    (lexer-context-consume-character context)
     t)
   
  +(defun handle-double-quote (stream initiation-sequence context)
  +  (declare (ignore initiation-sequence))
  +  (lexer-context-add-part context (read-double-quote stream))
  +  t)
  +
   (define-once-global +standard-shell-readtable+
       (as-> *empty-shell-readtable* x
         (with-handler x "'" 'handle-quote)
  -      (with-handler x "\\" 'handle-backslash)))
  +      (with-handler x "\\" 'handle-backslash)
  +      (with-handler x "\"" 'handle-double-quote)))
   
   (defun token-iterator (stream &key (readtable +standard-shell-readtable+))
     (make-iterator ()
  
positive.code:                (unless (equal 0 (length literal-string))
                   (vector-push-extend literal-string parts)
                   (setf literal-string (make-extensible-vector :element-type 'character)))))
        (skip)
        (loop
           (reset-next-char)
           (cond ((equal :eof next-char)
  
negative.code:         (parts (make-extensible-vector :element-type 'token))
          (literal-string (make-extensible-vector :element-type 'character))
          (next-char (peek-char nil stream nil :eof)))
      (labels ((keep ()
                 (vector-push-extend next-char literal-string)
                 (skip))
  