anchor.diff:  		 exp-rest
   		   #'((def vals)
   				(= no-static '&rest)
  -  			    (= rest-arg (list (cons def. (cons '&rest vals))))
  +  			    (= rest-arg (list (cons (get-name def)
  +                                        (cons '&rest vals))))
   			    nil)
   
            exp-optional-rest
  
positive.code: 				(cons (cons (get-name def)
  							(get-value def vals))
  					  (?
  						(argument-list-keyword? (cadr def)) (exp-main .def .vals)
  						.def (exp-optional .def .vals)
  					  	(exp-main .def .vals))))
  
  		 exp-key
  
negative.code: 				(make-&key-descr ._)
  				(cons _. (copy-def-until-&key ._)))])
  
  	(values (copy-def-until-&key def)
              (reverse &keys))))
  
  