diff options
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 06daed68..51210ea0 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -413,15 +413,7 @@ makeConstructorsAutoLoad() == systemDependentMkAutoload(getConstructorAbbreviationFromDB cnam,cnam) systemDependentMkAutoload(fn,cnam) == - FBOUNDP(cnam) => "next" - asharpName := asharpConstructorFromDB cnam => - kind := getConstructorKindFromDB cnam - cosig := getDualSignatureFromDB cnam - file := getConstructorModuleFromDB cnam - SET_-LIB_-FILE_-GETTER(file, cnam) - kind is 'category => - ASHARPMKAUTOLOADCATEGORY(file, cnam, asharpName, cosig) - ASHARPMKAUTOLOADFUNCTOR(file, cnam, asharpName, cosig) + FBOUNDP cnam => "next" symbolFunction(cnam) := mkAutoLoad(fn, cnam) autoLoad(abb,cname) == |