anchor.diff:  (define-parser-state |` form | (lexer-toplevel-state parser-state) ())
   
   (define-new-lisp-state (form-may-follow backquote-lexeme) |` |)
  -(define-new-lisp-state (|` | form) |` form |)
  +(define-new-lisp-state (|` | complete-form-mixin) |` form |)
   (define-new-lisp-state (|` | comment) |` |)
   (define-new-lisp-state (|` | unmatched-right-parenthesis-lexeme) |( form* ) |)
   
  
positive.code: (defmethod token-to-object ((syntax lisp-syntax) (token literal-object-lexeme) &key &allow-other-keys)
    (object-after (start-mark token)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Arglist fetching.
  
negative.code: (define-parser-state |' form | (lexer-toplevel-state parser-state) ())
  
  (define-new-lisp-state (form-may-follow quote-lexeme) |' |)
  (define-new-lisp-state (|' | complete-form-mixin) |' form |)
  (define-new-lisp-state (|' | comment) |' |)
  (define-new-lisp-state (|' | unmatched-right-parenthesis-lexeme) |( form* ) |)
  
  