diff options
author | dos-reis <gdr@axiomatics.org> | 2007-12-06 01:45:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-12-06 01:45:55 +0000 |
commit | 8aa35f143d2cdb6df3bfd1c7b466a07bd84cd464 (patch) | |
tree | de97ce8e0e07e80219c63b48dabc142296024702 /src/interp/functor.boot | |
parent | 132b009e95983fe1de764750cb5bde1d0d0fd3b7 (diff) | |
download | open-axiom-8aa35f143d2cdb6df3bfd1c7b466a07bd84cd464.tar.gz |
* Makefile.pamphlet (xruncomp.$(FASLEXT)): Remove rule.
(OCOBJS): Don't include xruncomp.$(FASLEXT) anymore.
* xruncomp.boot: Remove.
* compiler.boot (getFormModemaps): Merge from xruncomp.boot.
* functor.boot (LookUpSigSlots): Likewise.
* info.boot (actOnInfo): Likewise.
* modemap.boot (addModemap1): Likewise.
(evalAndSub): Likewise.
(substNames): Likewise.
(addConstructorModemaps): Likewise.
* nruncomp.boot (NRTencode): Likewise.
(genDeltaEntry): Likewise.
(NRTassignCapsuleFunctionSlot): Likewise.
(consDomainName): Likewise.
(changeDirectoryInSlot1): Likewise.
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 2e581dec..c9ae53d7 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -718,9 +718,10 @@ SetFunctionSlots(sig,body,flag,mode) == --mode is either "original" or "adding" body is ['QSETREFV,:.] => body nil ---------------------> NEW DEFINITION (override in xruncomp.boot.pamphlet) LookUpSigSlots(sig,siglist) == --+ must kill any implementations below of the form (ELT $ NIL) + if $insideCategoryPackageIfTrue then + sig := substitute('$,CADR($functorForm),sig) siglist := $lisplibOperationAlist REMDUP [implem for u in siglist | SigSlotsMatch(sig,first u,implem:=CADDR u) and KADDR implem] |