anchor.diff:  
   (defun parse-accumulation (body)
     (parse-alternative body
  -		     #'parse-list-accumulation
  +		     #'parse-list-accumulation-clause
   		     #'parse-numeric-accumulation))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: 	   (setf hash-table-form (car body))
  	   (pop body)
  	   (cond ((or (null body)
  		      (not (symbol-equal (car body) #:using)))
  		  (values (make-instanc class-name
  					:hash-table-form hash-table-form
  					:other-var nil)
  			  body))
  
negative.code: (defun parse-for/as-package (body class-name)
    (cond ((null body)
  	 (error 'expected-in/of-but-end))
  	((not (or (symbol-equal (car body) '#:in)
  		  (symbol-equal (car body) '#:of)))
  	 (error 'expected-in/of-but-found
  		:found (car body)))
  	((null (cddr body))
  