aboutsummaryrefslogtreecommitdiff
path: root/src/interp/trace.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-03-19 05:55:35 +0000
committerdos-reis <gdr@axiomatics.org>2008-03-19 05:55:35 +0000
commitd16606080c04bdbc97c6d3d046e17564ca5a5d0c (patch)
tree3419ca7e035912254754c476469b8d8976b549ef /src/interp/trace.boot
parentf23893b83a0450f8729579f74758e212bf3543b7 (diff)
downloadopen-axiom-d16606080c04bdbc97c6d3d046e17564ca5a5d0c.tar.gz
* interp/trace.boot (untraceDomainLocalOps): Tidy.
* interp/spaderror.lisp (|$quitTag|): Define as constant. (|$numericFailure|): Likewise. * interp/spad.lisp: Import "postpar" and "debug". ($): Remove toplevel assignment. (|traceComp|): Tidy. (/FLAG): Remove. (*PROMPT*): Remove. (|New,ENTRY,1|): Don't declare it. Tidy. (|New,ENTRY,2|): Fix typo. * interp/sfsfun-l.lisp (rbesselj): Remove extraneous right parenthesis. (rbesseli): Likewise. * interp/patches.lisp: Import "sockio" instead of "debug" (|$useInternalHistoryTable|): Don't define here. (user::start): Remove. (/RF-1): Declare ECHO-META special. (READSPADEXPR): Declare IN-STREAM special. (|$ViewportProcessToWatch|): Declare. (echo-meta): Don't set here. * interp/packtran.boot (rePackageTran): Tidy. * interp/nspadaux.lisp (|$underscoreChar|): Define. (|$markChoices|): Likewise. (|$convert2NewCompiler|): Likewise. (|$AnalyzeOnly|): Likewise. (|$categoryPart|): Likewise. (|$insideCAPSULE|): Likewise. (|$insideEXPORTS|): Likewise. (|$originalSignature|): Likewise. (|$insideDEF|): Likewise. (|$insideTypeExpression|): Likewise. (|$spadTightList|): Likewise. (|$PerCentVariableList|): Likewise. * interp/nrunopt.boot (augmentPredCode): Fix typo. * interp/nlib.lisp (*LISP-BIN-FILETYPE*): Remove. (recompile-lib-file-if-necessary): Use $faslType. Unconditionally define. * interp/lisplib.boot (compDefineLisplib): Tidy. * interp/interop.boot (SExprToDName): Tidy. (oldAxiomPreCategoryDevaluate): Likewise. (hashNewLookupInCategories): Likewise. * interp/g-util.boot (get): Adjust return type. (get0): Likewise. (get1): Likewise. (get2): Likewise. * interp/foam_l.lisp: Tidy. * interp/define.boot (maybeInsertViewMorphisms): Fix typo. * interp/debug.lisp (/breakcondition): Declare. * interp/sys-utility.boot (getSystemModulePath): New. * interp/daase.lisp (|with|): Remove (|library|): Move i-syscmd.boot (initial-getdatabase): Use getSystemModulePath. (getdatabase): Likewise. (addoperations): Don't reference package LISP. (localdatabase): Likewise. (write-interpdb): Don't declare *print-prett* special. (write-browsedb): Likewise. (write-categorydb): Likewise.
Diffstat (limited to 'src/interp/trace.boot')
-rw-r--r--src/interp/trace.boot1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index 883717c1..d25c4506 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -504,6 +504,7 @@ traceDomainLocalOps(dom,lops,options) ==
-- nil
untraceDomainLocalOps(dom,lops) ==
+ abb := abbreviate dom
sayMSG ['" ",:bright abb,'"has no local functions to untrace."]
NIL
-- lops = "all" => untraceAllDomainLocalOps(dom)