diff options
Diffstat (limited to 'src/boot/strap')
-rw-r--r-- | src/boot/strap/tokens.clisp | 4 | ||||
-rw-r--r-- | src/boot/strap/translator.clisp | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 2891cea0..8080f322 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -58,7 +58,7 @@ (PROG (|KeyTable|) (RETURN (PROGN - (SETQ |KeyTable| (MAKE-HASHTABLE 'CVEC)) + (SETQ |KeyTable| (|makeTable| #'EQUAL)) (LET ((|bfVar#2| |shoeKeyWords|) (|st| NIL)) (LOOP (COND @@ -136,7 +136,7 @@ (RETURN (PROGN (SETQ |listing| (HKEYS |shoeKeyTable|)) - (SETQ |a| (MAKE-BVEC 256)) + (SETQ |a| (|makeBitVector| 256)) (LET ((|i| 0)) (LOOP (COND 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")) |