diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-07-12 17:30:10 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-07-12 17:30:10 +0200 |
commit | ddf719390c5714ca4d92fb861d7caf1c971d4647 (patch) | |
tree | ddfdda827fdfb31a72436fb7449c474df0be3252 /tests.lisp | |
parent | 48d3d99d9ffaf0c7b10d5fbe93dc007630ab4b5c (diff) |
Fix COLLECT-LAMBDA-ARGS.
darcs-hash:e4ca18c09830d4f37787ba97f66580885e2b15e8
Diffstat (limited to 'tests.lisp')
-rw-r--r-- | tests.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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) |