anchor.diff:                        "")))))
   
   (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)))
  +  (list 'function (apply #'token-to-object syntax (second (children token)) args)))
   
   (defmethod token-to-object ((syntax lisp-syntax) (token bit-vector-form)
                               &key &allow-other-keys)
  
positive.code: (defmethod token-to-object (syntax (token backquote-form) &rest args)
    (let ((backquoted-form (first-form (children token))))
      (if (form-list-p backquoted-form)
          `'(,@(apply #'token-to-object syntax backquoted-form args))
          `',(apply #'token-to-object syntax backquoted-form args))))
  
  (defmethod token-to-object (syntax (token comma-form) &rest args)
  
negative.code: (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))
  
  