diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
commit | 0d8fcdd4995bba86701b8184b288dd549a5336fa (patch) | |
tree | 81e8f7491effa5959cd43ffdd9d9b94cef9d3f81 /src/interp/br-util.boot | |
parent | 8f2bad3b8cea97189a9e842ed0f78559aa4be795 (diff) | |
download | open-axiom-0d8fcdd4995bba86701b8184b288dd549a5336fa.tar.gz |
* interp/vmlisp.lisp (SETELT): Remove.
* interp/br-data.boot: Remove use of SETELT.
* interp/br-saturn.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/nruncomp.boot: Likewise.
Diffstat (limited to 'src/interp/br-util.boot')
-rw-r--r-- | src/interp/br-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot index 41f4f392..1312170c 100644 --- a/src/interp/br-util.boot +++ b/src/interp/br-util.boot @@ -106,7 +106,7 @@ capitalize s == ("default package" . "Default Package"))) or res := COPY_-SEQ s - SETELT(res,0,UPCASE res.0) + res.0 := UPCASE res.0 res escapeSpecialIds u == --very expensive function |