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: 		  '((a . 23) (b . 2) (c . 3) (d . 42))))
    t)
  
  (define-test "argument expansion can handle &OPTIONAL keyword without :apply-values"
    ((equal (argument-expand-names 'test '(a b &optional c d))
  		  '(a b c d)))
    t)
  
negative.code: 			    (? (keyword? vals.)
  				   (exp-key def vals)
  				   (| (exp-check-too-many def vals)
  			          (& def
                           (exp-main-non-key def vals))))))
  
  	 (%nconc (exp-main argdefs alst)
  			 (%nconc key-args rest-arg))))
  
  (defun argument-expand (fun def vals &optional (apply-values? t))
    (? apply-values?
  	 (argument-expand-0 fun def vals apply-values?)
  	 (carlist (argument-expand-0 fun def vals apply-values?))))
  
  (defun argument-expand-names (fun def)
    (argument-expand fun def nil nil))
  