anchor.diff:  			:location (location entry)
   			:type t
   			:inline-info nil
  +			:ast nil
  +			:parameters nil
   			:ignore-info nil
   			:dynamic-extent-p nil))
   	       nil))
  
positive.code:    (%dynamic-extent-p :initarg :dynamic-extent-p :reader dynamic-extent-p)))
  
  (defclass function-info-mixin ()
    ((%inline-info :initarg :inline-info :reader inline-info)
     (%lambda-list :initarg :lambda-list :reader lambda-list)
     (%ast :initarg :ast :reader ast)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 			    :location (location entry)
  			    :type type
  			    :inline-info inline-info
  			    :lambda-list (lambda-list entry)
  			    :ast (ast entry)
  			    :parameters (parameters entry)
  			    :ignore-info ignore-info
  			    :dynamic-extent-p dynamic-extent-p))))))
  
  