diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-28 23:08:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-28 23:08:17 +0000 |
| commit | 0c79bf08a243116545f78251958abc61377f1ed3 (patch) | |
| tree | 2c0b4afc6b3224d86a3ebc559c726f8246455967 /src/interp/define.boot | |
| parent | c8a3a2f38d94347901da6194ab3329c430b20944 (diff) | |
| download | open-axiom-0c79bf08a243116545f78251958abc61377f1ed3.tar.gz | |
* interp/daase.lisp (DATABASE): Add new field CAPSULE-DEFINITIONS.
(dbCapsuleDefinitions): New macro accessor.
* interp/functor.boot (encodeFunctionName): Set it.
* interp/lisplib.boot ($lisplibVariableAlist): Remove.
($lisplibSignatureAlist): Likewise.
(writeCapsuleLevelDefinitions): New.
(finalizeLisplib): Use it.
(mergeSignatureAndLocalVarAlists): Remove.
* interp/clam.boot (clearCategoryCaches): Use mkDomainCatName.
* interp/define.boot (DomainSubstitutionFunction): Likewise.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 99035a03..1481a24d 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -2438,7 +2438,7 @@ DomainSubstitutionFunction(parameters,body) == body isnt ["Join",:.] => body $definition isnt [.,:.] => body $definition.args = nil => body - name := makeSymbol strconc(KAR $definition,";CAT") + name := mkDomainCatName $definition.op SETANDFILE(name,nil) body := ['%when,[name],['%otherwise,['%store,name,body]]] body |