diff options
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) |