From 665cb7df0fd6106b61a88667ae132e613d395cc4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 12 May 2011 15:39:14 +0000 Subject: * 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. --- src/boot/translator.boot | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/boot/translator.boot') diff --git a/src/boot/translator.boot b/src/boot/translator.boot index d258a78d..151b4f73 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -525,10 +525,10 @@ $lispWordTable := nil shoeDfu(a,fn)== a=nil => shoeNotFound fn - $lispWordTable: local := MAKE_-HASHTABLE ("EQ") + $lispWordTable: local := makeTable function symbolEq? DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),tableValue($lispWordTable,i) := true) - $bootDefined: local :=MAKE_-HASHTABLE "EQ" - $bootUsed:local := MAKE_-HASHTABLE "EQ" + $bootDefined: local := makeTable function symbolEq? + $bootUsed:local := makeTable function symbolEq? $bootDefinedTwice: local := nil $GenVarCounter: local := 0 $bfClamming: local := false @@ -642,10 +642,10 @@ XREF fn== shoeXref(a,fn)== a = nil => shoeNotFound fn - $lispWordTable: local := MAKE_-HASHTABLE ("EQ") + $lispWordTable: local := makeTable function symbolEq? DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),tableValue($lispWordTable,i) := true) - $bootDefined: local := MAKE_-HASHTABLE "EQ" - $bootUsed: local := MAKE_-HASHTABLE "EQ" + $bootDefined: local := makeTable function symbolEq? + $bootUsed: local := makeTable function symbolEq? $GenVarCounter: local := 0 $bfClamming: local := false shoeDefUse shoeTransformStream a -- cgit v1.2.3