diff options
Diffstat (limited to 'src/interp/comp.lisp')
-rw-r--r-- | src/interp/comp.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp index b60cd837..307750ac 100644 --- a/src/interp/comp.lisp +++ b/src/interp/comp.lisp @@ -278,7 +278,7 @@ ; temporarily make TRACELET cause MAKEPROPs to be reported ((MEMQ U '(DCQ RELET PRELET SPADLET SETQ LET) ) (COND ((NOT (eq U 'DCQ)) - (COND ((OR (AND (eq $NEWSPAD T) (NOT $BOOT)) + (COND ((OR (AND (eq $NEWSPAD T)) (MEMQ $FUNNAME |$traceletFunctions|)) (NCONC X $FUNNAME_TAIL) (RPLACA X 'LETT)) |