diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-28 03:23:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 03:23:16 +0000 |
commit | 6058b44d19c4c9a101cfbb94923d7abd565010ee (patch) | |
tree | 51c89bf8b49d5339f4f65139c62f298f9ed0a107 /src/interp/trace.boot | |
parent | e8df6a1fe9e9f218b8d9147a3de55f6d60fcc080 (diff) | |
download | open-axiom-6058b44d19c4c9a101cfbb94923d7abd565010ee.tar.gz |
* interp/sys-utility.boot (eval): Define here.
* interp/br-con.boot: Use it.
* interp/br-op1.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/server.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/sys-macros.lisp (eval): Move to sys-utility.boot.
Diffstat (limited to 'src/interp/trace.boot')
-rw-r--r-- | src/interp/trace.boot | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index b36127e8..ebb04541 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -208,7 +208,7 @@ getTraceOption (x is [key,:l]) == ["of",:[hn y for y in l]] where hn x == atom x and not upperCase? STRINGIMAGE(x).0 => - isDomainOrPackage EVAL x => x + isDomainOrPackage eval x => x stackTraceOptionError ["S2IT0013",[x]] g:= domainToGenvar x => g stackTraceOptionError ["S2IT0013",[x]] @@ -245,19 +245,19 @@ ptimers() == null _/TIMERLIST => sayBrightly '" no functions are timed" for timer in _/TIMERLIST repeat sayBrightly [" ",:bright timer,'_:,'" ", - EVAL(INTERN strconc(timer,'"_,TIMER")) / float $timerTicksPerSecond,'" sec."] + eval(INTERN strconc(timer,'"_,TIMER")) / float $timerTicksPerSecond,'" sec."] pspacers() == null _/SPACELIST => sayBrightly '" no functions have space monitored" for spacer in _/SPACELIST repeat sayBrightly [" ",:bright spacer,'_:,'" ", - EVAL INTERN strconc(spacer,'"_,SPACE"),'" bytes"] + eval INTERN strconc(spacer,'"_,SPACE"),'" bytes"] pcounters() == null _/COUNTLIST => sayBrightly '" no functions are being counted" for k in _/COUNTLIST repeat sayBrightly [" ",:bright k,'_:,'" ", - EVAL INTERN strconc(k,'"_,COUNT"),'" times"] + eval INTERN strconc(k,'"_,COUNT"),'" times"] transOnlyOption l == l is [n,:y] => @@ -730,7 +730,7 @@ traceReply() == atom x => isFunctor x => addTraceItem x (IS__GENVAR x => - addTraceItem EVAL x; functionList:= [x,:functionList]) + addTraceItem eval x; functionList:= [x,:functionList]) userError '"bad argument to trace" functionList:= "append"/[[rassocSub(x,$mapSubNameAlist),'" "] for x in functionList | not isSubForRedundantMapName x] @@ -780,8 +780,8 @@ _?t() == TERPRI() tracelet(fn,vars) == - if GENSYMP fn and stupidIsSpadFunction EVAL fn then - fn := EVAL fn + if GENSYMP fn and stupidIsSpadFunction eval fn then + fn := eval fn if COMPILED_-FUNCTION_-P fn then fn:=BPINAME fn fn = 'Undef => nil vars:= @@ -800,8 +800,8 @@ tracelet(fn,vars) == breaklet(fn,vars) == --vars is "all" or a list of variables --$letAssoc ==> (.. (=fn .. (BREAK . all))) OR (.. (=fn .. (BREAK . vl))) - if GENSYMP fn and stupidIsSpadFunction EVAL fn then - fn := EVAL fn + if GENSYMP fn and stupidIsSpadFunction eval fn then + fn := eval fn if COMPILED_-FUNCTION_-P fn then fn:= BPINAME fn fn = "Undef" => nil fnEntry:= LASSOC(fn,$letAssoc) @@ -826,7 +826,7 @@ stupidIsSpadFunction fn == break msg == condition:= MONITOR_,EVALTRAN(_/BREAKCONDITION,nil) - EVAL condition => + eval condition => sayBrightly msg INTERRUPT() |