From ddf719390c5714ca4d92fb861d7caf1c971d4647 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 12 Jul 2007 17:30:10 +0200 Subject: Fix COLLECT-LAMBDA-ARGS. darcs-hash:e4ca18c09830d4f37787ba97f66580885e2b15e8 --- tests.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'tests.lisp') diff --git a/tests.lisp b/tests.lisp index b0f8ed6..d405c51 100644 --- a/tests.lisp +++ b/tests.lisp @@ -45,9 +45,12 @@ () (:tests ((ensure (functionp (funcall (fn (fn () _)))))) - ((ensure-error (funcall (efn (efn () _))))) + ((ensure (functionp (funcall (efn (efn () _)))))) ((ensure (functionp (funcall (fn1 (fn1 _)))))) - ((ensure-error (funcall (efn1 (efn1 _))))))) + ((ensure (functionp (funcall (efn1 (efn1 _)))))) + ((ensure-same (funcall (fn1 _3) 1 2 3 4 5) + 4)) + ((ensure-error (funcall (efn1 _3) 1 2 3 4 5))))) (deftestsuite mulk-lambda-fn* (mulk-lambda) -- cgit v1.2.3