anchor.diff:  		  '((a . 23) (b . 5) (c &rest 42 65))))
     t)
   
  -(define-test "argument expansion can handle &REST keyword without apply-values"
  +(define-test "argument expansion can handle &REST keyword without :apply-values"
     ((equal (argument-expand-names 'test '(a b c &rest d))
   		  '(a b c d)))
     t)
  
positive.code: 
  		 exp-sub
  		   #'((def vals)
  			    (when no-static
  				  (err "static sublevel argument definition after ~A"
  					   no-static))
  				(and apply-values (atom vals.)
  					 (err "sublist expected for argument ~A" num))
  				(%nconc (argument-expand-0 fun def. vals. apply-values)
  					    (exp-main .def .vals)))
  
  		 exp-check-too-many
             #'((def vals)
  			    (and (not def) vals
  				     (err "too many arguments. ~A max, but ~A more given"
  						  (length argdefs) (length vals))))
  
  		 exp-main-non-key
  		   #'((def vals)
  				(exp-check-too-many def vals)
  				(?
  				  (argument-keyword? def.)
  				    (exp-optional-rest def vals)
  				  (cons? def.)
  				    (exp-sub def vals)
  				  (exp-static def vals)))
  
           exp-main
  
negative.code: 		  '((a . 23) (b . 5) (c &rest))))
    t)
  
  (define-test "argument expansion can handle missing &REST without :apply-values"
    ((equal (argument-expand-names 'test '(a b &rest c))
  		  '(a b c)))
    t)
  