diff options
Diffstat (limited to 'src/interp/debug.lisp')
-rw-r--r-- | src/interp/debug.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 823c5452..e091b57f 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -512,7 +512,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (STRINGIMAGE FN)))) (COND (|$fromSpadTrace| (if MATHTRACE (push (INTERN TRACENAME) |$mathTraceList|)) - (SETQ LETFUNCODE `(SETQ |$currentFunction| ,(MKQ FN))) + (SETQ LETFUNCODE (MKQ FN)) (SETQ BEFORE (if (SETQ U (/GETTRACEOPTIONS OPTIONS 'BEFORE)) `(progn ,(CADR U) ,LETFUNCODE) |