From b22efb366bc557a98552bdbfb2471f7386464c1f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 22 Oct 2021 22:46:27 -0700 Subject: compiler: fix failing load-time tests. * stdlib/compiler.tl (usr:compile-toplevel): Do not bind *load-time* to t at the top level. The idea behind this binding was to treat load-time as a transparent form that does nothing if it occurs in the top-level since the top-level is already at load-time. However, this is problematic because it breaks the expectation that load-time calculations are factored out of a form and done prior to its evaluation, even if that form is top-level. --- stdlib/compiler.tl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 7756e98e..19dbf260 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2105,8 +2105,7 @@ (as (new assembler)) (*dedup* (or *dedup* (hash))) (*opt-level* (or *opt-level* 0))) - (let* ((*load-time* t) - (oreg co.(alloc-treg)) + (let* ((oreg co.(alloc-treg)) (xexp (if expanded-p exp (unwind-protect -- cgit v1.2.3