aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog7
-rw-r--r--src/interp/define.boot1
-rw-r--r--src/interp/lisplib.boot2
-rw-r--r--src/interp/nruncomp.boot6
4 files changed, 10 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 69718a1f..9d358a8d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,12 @@
2011-09-05 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/define.boot (compDefineFunctor1): Do not set
+ $lisplibFunctions.
+ * interp/lisplib.boot: Remove $lisplibOpAlist.
+ * interp/nruncomp.boot: Likewise.
+
+2011-09-05 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/nruncomp.boot (updateSlot1DataBase)e: Remove.
(newLookupInCategories1): Remove.
(newLookupInCategories): Do not call it.
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]]