diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/circ.tl | 6 | ||||
| -rw-r--r-- | tests/012/stack.tl | 2 | ||||
| -rw-r--r-- | tests/012/struct.tl | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/tests/012/circ.tl b/tests/012/circ.tl index 4b6e9990..82abe745 100644 --- a/tests/012/circ.tl +++ b/tests/012/circ.tl @@ -5,9 +5,9 @@ (print me.a stream pretty-p) (put-string "]]" stream))) -(defvar x (let* ((l (list "a")) - (c (new circ-print a l))) - (list l c))) +(defvarl x (let* ((l (list "a")) + (c (new circ-print a l))) + (list l c))) (let ((*print-circle* t)) (prinl (new circ-print a "a")) diff --git a/tests/012/stack.tl b/tests/012/stack.tl index 9a7534bb..62df252b 100644 --- a/tests/012/stack.tl +++ b/tests/012/stack.tl @@ -1,6 +1,6 @@ (load "../common") -(defvar stack-limited (set-stack-limit 32768)) +(defvarl stack-limited (set-stack-limit 32768)) (defun recur () (recur)) diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 3f03552d..bdff6311 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -16,7 +16,7 @@ (test (expand '^#S(bar b ,(+ 2 2))) (sys:make-struct-lit 'bar (list 'b (+ 2 2)))) -(defvar s (eval ^#S(bar b ,(+ 2 2)))) +(defvarl s (eval ^#S(bar b ,(+ 2 2)))) (test (set (slot s 'a) 100) 100) |