diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-09-14 22:15:42 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-09-14 22:15:42 -0700 |
| commit | b856a9a7b199d64db4b55a7aea56886569d20796 (patch) | |
| tree | 9262f753b282cd1aa978830b76347627a7e3e1c4 | |
| parent | ccc60fd99d57433a10160598912d06bf3bc92626 (diff) | |
| download | txr-b856a9a7b199d64db4b55a7aea56886569d20796.tar.gz txr-b856a9a7b199d64db4b55a7aea56886569d20796.tar.bz2 txr-b856a9a7b199d64db4b55a7aea56886569d20796.zip | |
compiler: test for recent bugfix.
* tests/012/lambda.tl: Add the test case which reproduces
the compiler failure that was fixed several
commits ago.
| -rw-r--r-- | tests/012/lambda.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/012/lambda.tl b/tests/012/lambda.tl index d417f458..96f8ba14 100644 --- a/tests/012/lambda.tl +++ b/tests/012/lambda.tl @@ -126,6 +126,8 @@ [(lambda (x y : (a 3) (b 4) . r) (list x y a b r)) 1 2 0 0 . vc] (1 2 0 0 (: : : :)) [(lambda (x y : (a 3) (b 4) . r) (list x y a b r)) 1 2 0 0 5 . vc] (1 2 0 0 (5 : : : :))) +(test (functionp (lambda (: (n n)))) t) + (cond (*compile-test* (exit t)) (t (set *compile-test* t) |