anchor.diff:  (define-form-predicate form-token-p (token-mixin))
   (define-form-predicate form-string-p (string-form))
   (define-form-predicate form-quoted-p (quote-form backquote-form))
  +(define-form-predicate form-comma-p (comma-form))
  +(define-form-predicate form-comma-at-p (comma-at-form))
   
   (define-form-predicate comment-p (comment))
   
  
positive.code:                       "")))))
  
  (defmethod token-to-object ((syntax lisp-syntax) (token complete-function-form) &rest args &key &allow-other-keys)
    (fdefinition (apply #'token-to-object syntax (second (children token)) args)))
  
  (defmethod token-to-object ((syntax lisp-syntax) (token bit-vector-form)
                              &key &allow-other-keys)
  
negative.code: (defmethod token-to-object (syntax (token backquote-form) &rest args)
    (let ((backquoted-form (first-form (children token))))
      (if (form-list-p backquoted-form)
          `(list ,@(loop for element in (children backquoted-form)
                      if (form-comma-p element)
                      collect (apply #'token-to-object syntax element args)
                      else if (form-comma-at-p element)
                      nconc (apply #'token-to-object syntax element args)
                      else if (formp element)
                      collect (apply #'token-to-object syntax element :quote t args)))
          `',(apply #'token-to-object syntax backquoted-form args))))
  
  (defmethod token-to-object (syntax (token comma-form) &rest args)
  