diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-24 20:42:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-24 20:42:47 +0000 |
| commit | 9852c96d425eaad7f299ed36558930514a0487d3 (patch) | |
| tree | bf18fb267c1f7433e989133f41a6b21310d4c9c4 /src/boot/strap/translator.clisp | |
| parent | b471fd6f3716d3e2c50e667f4d96efe38f8e31b5 (diff) | |
| download | open-axiom-9852c96d425eaad7f299ed36558930514a0487d3.tar.gz | |
* boot/initial-env.lisp (MEMQ): Remove.
* boot/ast.boot (shoeATOMs): Don't use it.
(isDynamicVariable): Likewise.
(shoeCompTran1): Likewise.
* boot/translator.boot (defuse1): Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index e330c5bd..6e73c749 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -962,8 +962,8 @@ ((SYMBOLP |y|) (SETQ |$used| (COND - ((MEMQ |y| |e|) |$used|) - ((MEMQ |y| |$used|) |$used|) + ((|symbolMember?| |y| |e|) |$used|) + ((|symbolMember?| |y| |$used|) |$used|) ((|defusebuiltin| |y|) |$used|) (T (UNION (LIST |y|) |$used|))))) (T NIL))) |