anchor.diff:  			    (and (eq (first declaration) 'type)
   				 (member var (cddr declaration))))
   			  declarations)))
  -    (when result 
  +    (when result
         (second result))))
   
   #|
  
positive.code: 		   `(,var-var (slot-value ,values ',var-slot)))))))
  
  (defbinding-form (:slots
  		  :docstring 
  		  "The `:slots` binding form is short hand for the `with-slots` macro.
  
  The syntax is (:slots slot-spec*)
  
negative.code: "The binding form for association-list is as follows:
  
      (:alist assoc-spec*)
  
  where each assoc-spec is an atom or a list of up to three elements:
  
  * atoms bind a variable with that name to an item with the same name.
  