diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-05 13:07:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-05 13:07:14 +0000 |
| commit | 92a16e7a3931750c74a5f1fee679a59fb218667d (patch) | |
| tree | 5aca77677c40ba2ec834a2ec3a642c4828930d71 /src/interp | |
| parent | e09358c522b756ad4b7485062b5ebc5321438cd3 (diff) | |
| download | open-axiom-92a16e7a3931750c74a5f1fee679a59fb218667d.tar.gz | |
* interp/define.boot (compDefineFunctor1): Do not set
$lisplibFunctions.
* interp/lisplib.boot: Remove $lisplibOpAlist.
* interp/nruncomp.boot: Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/define.boot | 1 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 2 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 6 |
3 files changed, 3 insertions, 6 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 8e9e7969..38854d13 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1422,7 +1422,6 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], if $LISPLIB then if not $bootStrapMode then $NRTslot1Info := NRTmakeSlot1Info() - $lisplibFunctionLocations := applySubst($pairlis,$functionLocations) libFn := getConstructorAbbreviationFromDB op' $lookupFunction: local := NRTgetLookupFunction($functorForm,modemap.mmTarget,$NRTaddForm,$e) diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 4debd68e..72ac576d 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -447,7 +447,6 @@ compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == $lisplibPredicates: local := nil $lisplibModemapAlist: local := nil $lisplibOperationAlist: local := nil - $lisplibOpAlist: local:= nil $libFile: local := nil $lisplibVariableAlist: local := nil $lisplibSignatureAlist: local := nil @@ -471,7 +470,6 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == $lisplibPredicates: local := nil -- set by makePredicateBitVector $lisplibModemapAlist: local := nil $lisplibOperationAlist: local := nil - $lisplibOpAlist: local := nil --operations alist for new runtime system $lisplibSignatureAlist: local := nil $libFile: local := nil $lisplibVariableAlist: local := nil diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 04603869..117b5946 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -627,12 +627,12 @@ NRTmakeSlot1Info() == [:argl,dollarName] := rest $form [[dollarName,:'_$],:mkSlot1sublis argl] mkSlot1sublis rest $form - $lisplibOpAlist := + exports := transformOperationAlist applySubst(pairlis,categoryExports $domainShell) opList := $NRTderivedTargetIfTrue => 'derived - $insideCategoryPackageIfTrue => slot1Filter $lisplibOpAlist - $lisplibOpAlist + $insideCategoryPackageIfTrue => slot1Filter exports + exports addList := applySubst(pairlis,$NRTaddForm) [$form.op,[addList,:opList]] |