diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 498bacfb..6a44b45d 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -404,7 +404,7 @@ loadFunctor u == makeConstructorsAutoLoad() == for cnam in allConstructors() repeat - symbolMember?(cnam,$CategoryNames) => nil + builtinCategoryName? cnam => nil property(cnam,'LOADED) := nil -- fn:=getConstructorAbbreviationFromDB cnam if niladicConstructorFromDB cnam @@ -793,7 +793,7 @@ isFunctor x == op:= opOf x not IDENTP op => false $InteractiveMode => - symbolMember?(op,$DomainNames) => true + builtinFunctorName? op => true getConstructorKindFromDB op in '(domain package) u:= get(op,'isFunctor,$CategoryFrame) or op in '(SubDomain Union Record Enumeration) => u |