anchor.diff:  		  '((a . 23) (b . 2) (c . 5) (d . 65))))
     t)
   
  -(define-test "argument expansion can handle &KEY keyword without :apply-values"
  +(define-test "argument expansion can handle &KEY keyword without :apply-values?"
     ((equal (argument-expand-names 'test '(a b &key c d))
   		  '(a b c d)))
     t)
   
  -(define-test "argument expansion can handle &OPTIONAL and &KEY keyword with init forms without :apply-values"
  +(define-test "argument expansion can handle &OPTIONAL and &KEY keyword with init forms without :apply-values?"
     ((equal (argument-expand-names 'test '(a b &optional (c 3) &key (d 42)))
   		  '(a b c d)))
     t)
   
  -(define-test "argument expansion can handle &OPTIONAL and &KEY keyword with init forms with :apply-values"
  +(define-test "argument expansion can handle &OPTIONAL and &KEY keyword with init forms with :apply-values?"
     ((equal (argument-expand 'test '(a b &optional (c 3) &key (d 42))
   								 '(23 2 3 :d 65) t)
   		  '((a . 23) (b . 2) (c . 3) (d . 65))))
  
positive.code: 		   #'((def vals)
  			    (& no-static
  				   (err "static argument definition after ~A" (list no-static)))
  			    (& apply-values (not vals)
  				   (err "argument ~A missing" (list num)))
  				(. (. (argdef-get-name def.) vals.)
                     (exp-main .def .vals)))
  
negative.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)
  