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 | bb803a2a19989ba495933a6c40aff60652bc7fa2 (patch) | |
| tree | 9262f753b282cd1aa978830b76347627a7e3e1c4 | |
| parent | 7464eef7a1c742ae24500d2813967780c25f5787 (diff) | |
| download | txr-bb803a2a19989ba495933a6c40aff60652bc7fa2.tar.gz txr-bb803a2a19989ba495933a6c40aff60652bc7fa2.tar.bz2 txr-bb803a2a19989ba495933a6c40aff60652bc7fa2.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) |