diff options
| author | dos-reis <gdr@axiomatics.org> | 2014-11-25 21:06:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2014-11-25 21:06:18 +0000 |
| commit | ec6a4e8f924d972e02803e8a963123a0c1cc36d2 (patch) | |
| tree | 758f013a7dbbc47f2053b03c747454b8b12fcb8b /src/interp/g-cndata.boot | |
| parent | 851c7663fa7b705006c1a6d3ca45d4ded7e48024 (diff) | |
| download | open-axiom-ec6a4e8f924d972e02803e8a963123a0c1cc36d2.tar.gz | |
Use makeTable instead of MAKE-HASH-TABLE
Diffstat (limited to 'src/interp/g-cndata.boot')
| -rw-r--r-- | src/interp/g-cndata.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot index f1f98eb5..deb307fa 100644 --- a/src/interp/g-cndata.boot +++ b/src/interp/g-cndata.boot @@ -46,7 +46,7 @@ $lowerCaseConTb := nil mkLowerCaseConTable() == --Called at system build time by function BUILD-INTERPSYS (see util.lisp) --Table is referenced by functions conPageFastPath and grepForAbbrev - $lowerCaseConTb := MAKE_-HASH_-TABLE() + $lowerCaseConTb := makeTable function scalarEq? for x in allConstructors() repeat augmentLowerCaseConTable x $lowerCaseConTb |