anchor.diff:  	  (case type
   	    (dynamic-extent
   	     (extend-env (var arguments)
  -			 (mkdecl var 'dynamic-extent-declaration-form :name var) 
  -			 var `(dynamic-extent)))        
  +			 (mkdecl var 'dynamic-extent-declaration-form :name var)
  +			 var `(dynamic-extent)))
   	    (ftype
   	     (extend-env (function-name (cdr arguments))
  -			 (make-instance 'ftype-declaration-form 
  +			 (make-instance 'ftype-declaration-form
   					:parent parent
   					:source `(ftype ,(first arguments) function-name)
   					:name function-name
  
positive.code: 			 (mkdecl function 'notinline-declaration-form :name function)
  			 function `(notinline)))
  	    (optimize
  	     (extend-env (optimize-spec arguments) 
  			 (mkdecl optimize-spec 'optimize-declaration-form :optimize-spec optimize-spec)
  			 'optimize optimize-spec))
  	    (special
  	     (extend-env (var arguments) 
  			 (mkdecl var 'special-declaration-form :name var)
  			 var `(special)))
  	    (type
  	     (extend-env (var (rest arguments))
  			 (make-instance 'type-declaration-form 
  					:parent parent
  					:source `(type ,(first arguments) ,var)
  					:name var
  
negative.code: 			      (mkdecl var 'variable-ignorable-declaration-form :name var))
  			 var `(ignorable)))
  	    (inline
  	      (extend-env (function arguments)
  			  (mkdecl function 'function-ignorable-declaration-form :name function)
  			  function `(ignorable)))
  	    (notinline
  