diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-02 01:17:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-02 01:17:52 +0000 |
| commit | b9a4e3cd1880e977a827a98b1cb69175e7ad1e74 (patch) | |
| tree | 9b505483aa0d28ff9441b85231fc9f7d49553a2e /src/interp/lisplib.boot | |
| parent | f6f972eda48c04d11d8790ee24b038d8762ba34b (diff) | |
| download | open-axiom-b9a4e3cd1880e977a827a98b1cb69175e7ad1e74.tar.gz | |
Remove uses of SETF in Boot codes
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 d0a41d7c..f95cacdb 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -268,7 +268,7 @@ systemDependentMkAutoload(fn,cnam) == kind = 'category => ASHARPMKAUTOLOADCATEGORY(file, cnam, asharpName, cosig) ASHARPMKAUTOLOADFUNCTOR(file, cnam, asharpName, cosig) - SETF(symbolFunction cnam,mkAutoLoad(fn, cnam)) + symbolFunction(cnam) := mkAutoLoad(fn, cnam) autoLoad(abb,cname) == -- builtin constructors are always loaded. By definition, there @@ -280,11 +280,11 @@ autoLoad(abb,cname) == setAutoLoadProperty(name) == -- abb := constructor? name REMPROP(name,'LOADED) - SETF(symbolFunction name,mkAutoLoad(constructor? name, name)) + symbolFunction(name) := mkAutoLoad(constructor? name, name) unloadOneConstructor(cnam,fn) == REMPROP(cnam,'LOADED) - SETF(symbolFunction cnam,mkAutoLoad(fn, cnam)) + symbolFunction(cnam) := mkAutoLoad(fn, cnam) --% Compilation |