diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
commit | 665cb7df0fd6106b61a88667ae132e613d395cc4 (patch) | |
tree | 7add9286226ea268e888be8a1c55da11fc182210 /src/boot/strap/translator.clisp | |
parent | a8b9a2f5f65820ce836353e0d25070fa8eaeece9 (diff) | |
download | open-axiom-665cb7df0fd6106b61a88667ae132e613d395cc4.tar.gz |
* boot/initial-env.lisp (MAKE-HASHTABLE): Remove.
(BEVC-MAKE-FULL): Likewise.
(MAKE-BVEC): Likewise.
* boot/tokens.boot (shoeKeyTableCons): Adjust.
(shoePunCons): Likewise.
(shoeDfu): Likewise.
(shoeXref): Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r-- | src/boot/strap/translator.clisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 0d3d6a67..312bca9e 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -842,11 +842,11 @@ (RETURN (COND ((NULL |a|) (|shoeNotFound| |fn|)) - (T (SETQ |$lispWordTable| (MAKE-HASHTABLE 'EQ)) + (T (SETQ |$lispWordTable| (|makeTable| #'EQ)) (DO-SYMBOLS (|i| (FIND-PACKAGE 'LISP)) (SETF (|tableValue| |$lispWordTable| |i|) T)) - (SETQ |$bootDefined| (MAKE-HASHTABLE 'EQ)) - (SETQ |$bootUsed| (MAKE-HASHTABLE 'EQ)) + (SETQ |$bootDefined| (|makeTable| #'EQ)) + (SETQ |$bootUsed| (|makeTable| #'EQ)) (SETQ |$bootDefinedTwice| NIL) (SETQ |$GenVarCounter| 0) (SETQ |$bfClamming| NIL) (|shoeDefUse| (|shoeTransformStream| |a|)) @@ -1144,11 +1144,11 @@ (RETURN (COND ((NULL |a|) (|shoeNotFound| |fn|)) - (T (SETQ |$lispWordTable| (MAKE-HASHTABLE 'EQ)) + (T (SETQ |$lispWordTable| (|makeTable| #'EQ)) (DO-SYMBOLS (|i| (FIND-PACKAGE 'LISP)) (SETF (|tableValue| |$lispWordTable| |i|) T)) - (SETQ |$bootDefined| (MAKE-HASHTABLE 'EQ)) - (SETQ |$bootUsed| (MAKE-HASHTABLE 'EQ)) + (SETQ |$bootDefined| (|makeTable| #'EQ)) + (SETQ |$bootUsed| (|makeTable| #'EQ)) (SETQ |$GenVarCounter| 0) (SETQ |$bfClamming| NIL) (|shoeDefUse| (|shoeTransformStream| |a|)) (SETQ |out| (CONCAT |fn| ".xref")) |