shithub: sl

Info  •  Files  •  Log  •  Branches

unit test: table: allocate more than inline size

It wasn't really doing that, it seems.

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -477,7 +477,9 @@

          set-cdr! 2      =        2

          <        2      compare  2

          aref     2      aset!    3

-         div0     2)))

+         div0     2      'hello   4

+         'goodbye 5      'foo     6

+         'bar     7)))

 ;; now allocate enough to trigger GC

 (for 1 8000000 (λ (i) (cons 1 2)))