anchor.diff:  		 (t
   		  (let ((using-arg (car body)))
   		    (if (or (not (consp using-arg))
  -			    (not (symbol-equal (car using-arg) #:has-value))
  +			    (not (symbol-equal (car using-arg) '#:has-value))
   			    (not (consp (cdr using-arg)))
   			    (not (null (cddr using-arg)))
   			    (not (symbolp (cadr using-arg))))
  
positive.code:       (let ((result (make-instance 'class-name
  		      :form (car body))))
  	(if (and (not (null (cdr body)))
  		 (symbol-equal (cadr body) #:into))
  	    (cond ((null (cddr body))
  		   (error 'expected-simple-var-but-end))
  		  ((not (symbolp (caddr body)))
  
negative.code: (defun parse-initial-final (body)
    (parse-alternative body
  		     #'parse-initially-clause
  		     #'parse-finally-clause))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  