diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-02-07 22:06:29 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-02-07 22:06:29 -0800 |
commit | 4c8c8f82ac22278f998bc5325770b17c4e9c7fa5 (patch) | |
tree | 20a75675bac8366909a226d6ad177a851239abd4 /src/interp/debug.lisp | |
parent | 57c34813bfccfd58955608f9ec5e45f4523ef655 (diff) | |
download | open-axiom-4c8c8f82ac22278f998bc5325770b17c4e9c7fa5.tar.gz |
Remove $NRTaddForm
Use a %CompilerData slot to hold the corresponding data during the
elaboration of a capsule.
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) |