anchor.diff:    t)
   
   (define-test "argument expansion can handle &OPTIONAL keyword with init forms without apply-values"
  -  ((equal (argument-expand 'test '(a b &optional (c 3) (d 42)) nil nil)
  +  ((equal (argument-expand-names 'test '(a b &optional (c 3) (d 42)))
   		  '(a b c d)))
     t)
   
   (define-test "argument expansion can handle &KEY keyword"
  -  ((equal (argument-expand 'test '(a b &key c d) '(23 2 :c 3 :d 42) t)
  +  ((equal (argument-expand 'test '(a b &key c d)
  +								 '(23 2 :c 3 :d 42) t)
   		  '((a . 23) (b . 2) (c . 3) (d . 42))))
     t)
   
  +(define-test "argument expansion can handle &KEY keyword with overloaded init forms"
  +  ((equal (argument-expand 'test '(a b &key (c 3) (d 42))
  +								 '(23 2 :c 5 :d 65) t)
  +		  '((a . 23) (b . 2) (c . 5) (d . 65))))
  +  t)
  +
   (define-test "argument expansion can handle &KEY keyword without apply-values"
  -  ((equal (argument-expand 'test '(a b &key c d) nil nil)
  -		  '(a b c d)))
  +  ((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"
  +  ((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"
  +  ((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))))
     t)
   
   ;(define-test "argument expansion can handle &KEY keyword with init forms"
  
positive.code:   t)
  
  (define-test "argument expansion basically works without apply-values"
    ((equal (argument-expand 'test '(a b) nil nil)
  	      '(a b)))
    t)
  
  
negative.code:   t)
  
  (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)
  
  