diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 4d754bbe..2bd63c11 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -410,7 +410,7 @@ makeConstructorsAutoLoad() == if niladicConstructorFromDB cnam then PUT(cnam,'NILADIC,'T) else REMPROP(cnam,'NILADIC) - systemDependentMkAutoload(constructor? cnam,cnam) + systemDependentMkAutoload(getConstructorAbbreviationFromDB cnam,cnam) systemDependentMkAutoload(fn,cnam) == FBOUNDP(cnam) => "next" @@ -432,9 +432,9 @@ autoLoad(abb,cname) == symbolFunction cname setAutoLoadProperty(name) == --- abb := constructor? name +-- abb := getConstructorAbbreviationFromDB name REMPROP(name,'LOADED) - symbolFunction(name) := mkAutoLoad(constructor? name, name) + symbolFunction(name) := mkAutoLoad(getConstructorAbbreviationFromDB name, name) unloadOneConstructor(cnam,fn) == REMPROP(cnam,'LOADED) |