aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-10-27 19:36:50 +0000
committerdos-reis <gdr@axiomatics.org>2010-10-27 19:36:50 +0000
commitcc748e363c46f17de6eee6e2fdf99fff3c340346 (patch)
tree6d9e1b4b74d901da754ec4e2c51155de0457c87c /src/algebra
parent977f775f6a923edd1eb52b7b1c3a3d963e62049d (diff)
downloadopen-axiom-cc748e363c46f17de6eee6e2fdf99fff3c340346.tar.gz
* interp/c-util.boot (makeCommonEnvironment): Use list node pointer
comparaison, not object comparaison.
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/Makefile.in4
-rw-r--r--src/algebra/Makefile.pamphlet4
-rw-r--r--src/algebra/strap/BOOLEAN.lsp2
-rw-r--r--src/algebra/strap/SINT.lsp11
4 files changed, 11 insertions, 10 deletions
diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in
index e3b3ecf8..633bd221 100644
--- a/src/algebra/Makefile.in
+++ b/src/algebra/Makefile.in
@@ -243,7 +243,7 @@ $(OUT)/CFCAT.$(FASLEXT): $(OUT)/TYPE.$(FASLEXT)
-$(OUT)/AGG.$(FASLEXT) $(OUT)/AGG-.$(FASLEXT): $(OUT)/TYPE.$(FASLEXT)
+$(OUT)/AGG.$(FASLEXT) $(OUT)/AGG-.$(FASLEXT): $(OUT)/BOOLE.$(FASLEXT)
$(OUT)/ELTAGG.$(FASLEXT): $(OUT)/AGG.$(FASLEXT) $(OUT)/SETCAT.$(FASLEXT)
$(OUT)/IXAGG.$(FASLEXT): $(OUT)/ELTAGG.$(FASLEXT) $(OUT)/EVALAB.$(FASLEXT)
$(OUT)/RCAGG.$(FASLEXT): $(OUT)/EVALAB.$(FASLEXT) $(OUT)/SETCAT.$(FASLEXT) \
@@ -260,7 +260,7 @@ $(OUT)/FLAGG.$(FASLEXT): $(OUT)/BMODULE.$(FASLEXT) $(OUT)/PID.$(FASLEXT) \
$(OUT)/LINEXP.$(FASLEXT) $(OUT)/PATMAB.$(FASLEXT) \
$(OUT)/REAL.$(FASLEXT) $(OUT)/CHARZ.$(FASLEXT) \
$(OUT)/DIFFSPC.$(FASLEXT)
-$(OUT)/A1AGG.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT) $(OUT)/LOGIC.$(FASLEXT) \
+$(OUT)/A1AGG.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT) $(OUT)/BOOLE-.$(FASLEXT) \
$(OUT)/FLAGG.$(FASLEXT) $(OUT)/LOGIC-.$(FASLEXT) \
$(OUT)/ORDTYPE-.$(FASLEXT)
$(OUT)/SRAGG.$(FASLEXT): $(OUT)/A1AGG.$(FASLEXT)
diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet
index 93881bc6..d8c1d96f 100644
--- a/src/algebra/Makefile.pamphlet
+++ b/src/algebra/Makefile.pamphlet
@@ -197,7 +197,7 @@ $(OUT)/CFCAT.$(FASLEXT): $(OUT)/TYPE.$(FASLEXT)
-$(OUT)/AGG.$(FASLEXT) $(OUT)/AGG-.$(FASLEXT): $(OUT)/TYPE.$(FASLEXT)
+$(OUT)/AGG.$(FASLEXT) $(OUT)/AGG-.$(FASLEXT): $(OUT)/BOOLE.$(FASLEXT)
$(OUT)/ELTAGG.$(FASLEXT): $(OUT)/AGG.$(FASLEXT) $(OUT)/SETCAT.$(FASLEXT)
$(OUT)/IXAGG.$(FASLEXT): $(OUT)/ELTAGG.$(FASLEXT) $(OUT)/EVALAB.$(FASLEXT)
$(OUT)/RCAGG.$(FASLEXT): $(OUT)/EVALAB.$(FASLEXT) $(OUT)/SETCAT.$(FASLEXT) \
@@ -214,7 +214,7 @@ $(OUT)/FLAGG.$(FASLEXT): $(OUT)/BMODULE.$(FASLEXT) $(OUT)/PID.$(FASLEXT) \
$(OUT)/LINEXP.$(FASLEXT) $(OUT)/PATMAB.$(FASLEXT) \
$(OUT)/REAL.$(FASLEXT) $(OUT)/CHARZ.$(FASLEXT) \
$(OUT)/DIFFSPC.$(FASLEXT)
-$(OUT)/A1AGG.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT) $(OUT)/LOGIC.$(FASLEXT) \
+$(OUT)/A1AGG.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT) $(OUT)/BOOLE-.$(FASLEXT) \
$(OUT)/FLAGG.$(FASLEXT) $(OUT)/LOGIC-.$(FASLEXT) \
$(OUT)/ORDTYPE-.$(FASLEXT)
$(OUT)/SRAGG.$(FASLEXT): $(OUT)/A1AGG.$(FASLEXT)
diff --git a/src/algebra/strap/BOOLEAN.lsp b/src/algebra/strap/BOOLEAN.lsp
index 370802b3..f23f32a4 100644
--- a/src/algebra/strap/BOOLEAN.lsp
+++ b/src/algebra/strap/BOOLEAN.lsp
@@ -197,7 +197,7 @@
172 < 178 |/\\| 184)
'NIL
(CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0 0))
- (CONS '#(NIL NIL NIL NIL NIL |SetCategory&|
+ (CONS '#(NIL NIL NIL NIL |BooleanLogic&| |SetCategory&|
|OrderedType&| |Logic&| |BasicType&| NIL NIL
NIL)
(CONS '#((|OrderedFinite|) (|OrderedSet|)
diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp
index e6b37647..cfb59ef4 100644
--- a/src/algebra/strap/SINT.lsp
+++ b/src/algebra/strap/SINT.lsp
@@ -627,11 +627,12 @@
|Ring&| NIL NIL NIL NIL NIL NIL
|AbelianGroup&| NIL NIL NIL NIL NIL
|AbelianMonoid&| |Monoid&| NIL NIL NIL NIL NIL
- NIL |AbelianSemiGroup&| |SemiGroup&| NIL NIL
- |DifferentialSpace&| |OrderedType&|
- |SetCategory&| |Logic&| NIL |RetractableTo&|
- |DifferentialDomain&| |BasicType&| NIL NIL NIL
- NIL NIL NIL NIL NIL NIL NIL NIL)
+ NIL |AbelianSemiGroup&| |SemiGroup&| NIL
+ |BooleanLogic&| |DifferentialSpace&|
+ |OrderedType&| |SetCategory&| |Logic&| NIL
+ |RetractableTo&| |DifferentialDomain&|
+ |BasicType&| NIL NIL NIL NIL NIL NIL NIL NIL
+ NIL NIL NIL)
(CONS '#((|IntegerNumberSystem|)
(|EuclideanDomain|)
(|UniqueFactorizationDomain|)