diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
| commit | 431bfaa2ee046f519715d1aa51b74f05eba74f87 (patch) | |
| tree | c1ef303d3f3d5e2ceb1f1c619575128eda638bc0 /src/interp/g-cndata.boot | |
| parent | a12a4527c1d48988f48b4656c3a46ab91ab4e5e2 (diff) | |
| download | open-axiom-431bfaa2ee046f519715d1aa51b74f05eba74f87.tar.gz | |
* interp/br-data.boot: Remove uses of BOUNDP.
* interp/br-op1.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/category.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
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 ee0f44a4..d6788b88 100644 --- a/src/interp/g-cndata.boot +++ b/src/interp/g-cndata.boot @@ -127,7 +127,7 @@ abbQuery(x) == installConstructor(cname,type) == (entry := getCDTEntry(cname,true)) => entry item := [cname,getConstructorAbbreviationFromDB cname,nil] - if BOUNDP '$lowerCaseConTb and $lowerCaseConTb then + if $lowerCaseConTb then HPUT($lowerCaseConTb,cname,item) HPUT($lowerCaseConTb,DOWNCASE cname,item) |