diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
| commit | 331ff8fe93b6cee63593dcad6b7a9c235bac946d (patch) | |
| tree | 0c7ef9cb2096a70ff415cb50a0cad629e4fbe792 /src/interp/lisplib.boot | |
| parent | 2a4104845c1ad1bda28d9d03e6e29925479b1cff (diff) | |
| download | open-axiom-331ff8fe93b6cee63593dcad6b7a9c235bac946d.tar.gz | |
Symbol cleanups
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 8d87c008..d0a41d7c 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -268,23 +268,23 @@ systemDependentMkAutoload(fn,cnam) == kind = 'category => ASHARPMKAUTOLOADCATEGORY(file, cnam, asharpName, cosig) ASHARPMKAUTOLOADFUNCTOR(file, cnam, asharpName, cosig) - SETF(SYMBOL_-FUNCTION cnam,mkAutoLoad(fn, cnam)) + SETF(symbolFunction cnam,mkAutoLoad(fn, cnam)) 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 - SYMBOL_-FUNCTION cname + symbolFunction cname setAutoLoadProperty(name) == -- abb := constructor? name REMPROP(name,'LOADED) - SETF(SYMBOL_-FUNCTION name,mkAutoLoad(constructor? name, name)) + SETF(symbolFunction name,mkAutoLoad(constructor? name, name)) unloadOneConstructor(cnam,fn) == REMPROP(cnam,'LOADED) - SETF(SYMBOL_-FUNCTION cnam,mkAutoLoad(fn, cnam)) + SETF(symbolFunction cnam,mkAutoLoad(fn, cnam)) --% Compilation |