anchor.diff:    t)
   
   (define-test "argument expansion can handle nested lists without apply-values"
  -  ((equal (argument-expand 'test '(a (b c) d) nil nil)
  +  ((equal (argument-expand-names 'test '(a (b c) d))
   	      '(a b c d)))
     t)
   
  
positive.code: 						(argument-list-keyword? (second def))
  					  	  (exp-main .def .vals)
  						.def
  						  (exp-optional .def .vals))))
  
  		 exp-key
  		   #'((def vals)
  
negative.code:   t)
  
  (define-test "argument expansion basically works without apply-values"
    ((equal (argument-expand-names 'test '(a b))
  	      '(a b)))
    t)
  
  