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:            ,(%argument-expand-rest .args))))
  
  (defun argument-expand-compiled-values (fun def vals)
    (mapcar (fn (? (and (cons? _)
                        (or (eq '&rest _.)
                            (eq '&body _.)))
                   (%argument-expand-rest ._)
                   _))
            (cdrlist (argument-expand fun def vals t))))
  
  ;;; Tests
  
  (define-test "argument expansion basically works"
    ((equal (argument-expand 'test '(a b) '(2 3) t)
  	      '((a . 2) (b . 3))))
    t)
  
  (define-test "argument expansion basically works without apply-values"
    ((equal (argument-expand-names 'test '(a b))
  	      '(a b)))
    t)
  
negative.code: 
  		 exp-optional
  		   #'((def vals)
  				(and (argument-keyword? def.)
  				     (err "Keyword ~A after &OPTIONAL" (list def.)))
  				(setf no-static '&optional)
  				(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
  