anchor.diff:        (let ((result (make-instance 'class-name
   		      :form (car body))))
   	(if (and (not (null (cdr body)))
  -		 (symbol-equal (cadr body) #:into))
  +		 (symbol-equal (cadr body) '#:into))
   	    (cond ((null (cddr body))
   		   (error 'expected-simple-var-but-end))
   		  ((not (symbolp (caddr body)))
  
positive.code:     (clause variable-clause-mixin main-clause-mixin compound-forms-mixin)
    ())
  
  (define-elementary-parser parse-finally body (#:finally)
    (multiple-value-bind (compound-forms rest)
        (parse-nonempty-compound-forms (cdr body))
      (values (make-instance 'finally-clause :forms compound-forms)
  
negative.code: 		   (cdddr body))))))
  
  (define-elementary-parser parse-for/as-package-symbols body (#:symbol #:symbols)
    (parse-for/as-package (cdr body) 'for/as-package-symbols-subcause))
  
  (define-elementary-parser parse-for/as-package-present-symbols body (#:present-symbol #:present-symbols)
    (parse-for/as-package (cdr body) 'for/as-package-present-symbols-subcause))
  
  (define-elementary-parser parse-for/as-package-external-symbols body (#:external-symbol #:external-symbols)
    (parse-for/as-package (cdr body) 'for/as-package-external-symbols-subcause))
  
  (define-elementary-parser parse-for/as-hash/package body (#:being)
    (cond ((null (cdr body))
  