anchor.diff:  * If the specification is a list, then bind will use the first item for
     the variable's name and the second item for the slot-name.
   
  -See [read-only-slots][read-only-slots-binding-spec] for a 
  +See [read-only-slots][read-only-slots-binding-spec] for a
   variant that provides only read-write access to the class."
  -)		  
  -  `(with-slots 
  +)
  +  `(with-slots
   	 (,@(loop for var in variables collect
   		 (let ((var-var (or (and (consp var) (first var))
   				    var))
  
positive.code: 	,@(when ignores `((declare (ignore ,@ignores)))))))
  
  (defbinding-form (:values
  		  :docstring "" 
  		  :use-values-p nil)
    (multiple-value-bind (vars ignores)
        (bind-fix-nils variables)
  
negative.code: 				    var))
  		       (var-conc (or (and (consp var) (second var))
  				     var)))
  		   `(,var-var (,(intern
  				 (format nil "~a~a"
  					 conc-name var-conc))
  				,values)))))))
  
  (defbinding-form ((:structure/rw)
  