anchor.diff:  				(make-&key-descr ._)
   				(cons _. (copy-def-until-&key ._)))])
   
  -	(= &keys nil) ; XXX Remove this?
   	(values (copy-def-until-&key def)
               (reverse &keys))))
   
  
positive.code: 			          (& def (exp-main-non-key def vals))))))
  
    (with ((a k) (make-&key-alist adef))
  	 (= argdefs a
  	    key-args k
  	    num 0
  	    no-static nil
  	    rest-arg nil)
  	 (%nconc (exp-main argdefs alst)
  			 (%nconc key-args
  			 		 rest-arg)))))
  
negative.code: 		 exp-rest
  		   #'((def vals)
  				(= no-static '&rest)
    			    (= rest-arg (list (cons (get-name def)
                                          (cons '&rest vals))))
  			    nil)
  
           exp-optional-rest
  