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:            ,(%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 works with simple list"
    ((equal (argument-expand 'test '(a b) '(2 3) t)
  	      '((a . 2) (b . 3))))
    t)
  
  (define-test "argument expansion works without :apply-values"
    ((equal (argument-expand-names 'test '(a b))
  	      '(a b)))
    t)
  