diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-27 07:41:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-27 07:41:49 +0000 |
| commit | 320d0c5d61b2fc8cb6780b9c7e426a76e126307a (patch) | |
| tree | e593716c7f294b29fbfe4dd1f71758453f9b3586 /src/interp/lisplib.boot | |
| parent | b34b11df886a81fe707bb09677c1ecd9715dbe70 (diff) | |
| download | open-axiom-320d0c5d61b2fc8cb6780b9c7e426a76e126307a.tar.gz | |
* interp/br-util.boot (dbInfovec): Move to c-util.boot
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 2f34523b..a91b5d1d 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -302,7 +302,7 @@ loadLibIfNotLoaded libName == -- replaces old SpadCondLoad -- loads is library is not already loaded $PrintOnly => NIL - GETL(libName,'LOADED) => NIL + property(libName,'LOADED) => NIL loadLib libName loadLib cname == @@ -364,7 +364,7 @@ loadLibIfNecessary(u,mustExist) == cons? u => loadLibIfNecessary(first u,mustExist) value:= functionp(u) or macrop(u) => u - GETL(u,'LOADED) => u + property(u,'LOADED) => u loadLib u => u null $InteractiveMode and ((null (y:= getProplist(u,$CategoryFrame))) or (null symbolLassoc('isFunctor,y)) and (null symbolLAssoc('isCategory,y))) => @@ -428,7 +428,7 @@ autoLoad(abb,cname) == -- builtin constructors are always loaded. By definition, there -- is no way to unload them and load them again. cname in $BuiltinConstructorNames => cname - if not GETL(cname,'LOADED) then loadLib cname + if not property(cname,'LOADED) then loadLib cname symbolFunction cname setAutoLoadProperty(name) == |