anchor.diff:  							`value-form
   							`(first value-form))))
   		       ,@(bind-filter-declarations declarations variable-form)
  -		       ,@(bind-macro-helper 
  +		       ,@(bind-macro-helper
   			  remaining-bindings declarations body)))))
   	 ,@(when multiple-names?
   		 (loop for name in name/s collect
  -		      `(defmethod bind-generate-bindings 
  +		      `(defmethod bind-generate-bindings
   			   ((kind (eql ,name))
  -			    variable-form value-form body declarations 
  +			    variable-form value-form body declarations
   			    remaining-bindings)
  -			 (,main-method-name 
  -			  variable-form value-form body declarations 
  +			 (,main-method-name
  +			  variable-form value-form body declarations
   			  remaining-bindings))))
   	 #+(or)
   	 ,@(when multiple-names?
   		 (loop for name in name/s collect
  -		      `(defmethod bind-generate-bindings 
  +		      `(defmethod bind-generate-bindings
   			   ((kind (eql ,name))
  -			    variable-form value-form body declarations 
  +			    variable-form value-form body declarations
   			    remaining-bindings)
  -			 (,main-method-name 
  +			 (,main-method-name
   			  variable-form
   			  ,(if accept-multiple-forms-p `value-form `(first value-form))
  -			  body declarations 
  +			  body declarations
   			  remaining-bindings))))
   	 ))))
   
  
positive.code: 			       `(funcall (lambda (variables values) ,@body)
  					 variable-form gvalues))
  					;		 ,@(when ,gignores `((declare (ignore ,@gignores))))
  			   ,@(bind-filter-declarations 
  			      declarations variable-form)
  			   ,@(bind-macro-helper 
  			      remaining-bindings declarations body)))))
  		``((,@,(if (symbolp (first body))
  			   `(,(first body) variable-form ,(if accept-multiple-forms-p
  
negative.code: 	     (intern (symbol-name name)
  		     (load-time-value (find-package :keyword)))))
        (when force-keyword?
  	(setf name/s (if multiple-names?
  			 (mapcar #'form-keyword name/s)
  			 (form-keyword name/s))))
        `(progn
  	 (setf (binding-form-docstring ',name/s) ,docstring)
  	 ,@(loop for name in (if multiple-names? name/s (list name/s))
  	       when (keywordp name) collect
  		`(defmethod binding-form-accepts-multiple-forms-p
  		      ((binding-form (eql ,name)))
  		    ,accept-multiple-forms-p))
  	 (,(if multiple-names? 'defun 'defmethod) ,main-method-name
  