diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-04-20 14:28:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-04-20 14:28:31 +0000 |
| commit | 6fa5b85a7a68ad4422b98eb982a2a44998d6ee53 (patch) | |
| tree | 638222da14ed9aea4d6ad13612a0abc207122692 /src/algebra/strap/BOOLEAN.lsp | |
| parent | 6d9ec581fcfbc307730e3da774ad2c63c5dfe9b7 (diff) | |
| download | open-axiom-6fa5b85a7a68ad4422b98eb982a2a44998d6ee53.tar.gz | |
* interp/compiler.boot (joinIntegerModes): New.
(compIntegerValue): Likewise.
(compStepIterator): Likewise.
(compIterate): Use it.
Diffstat (limited to 'src/algebra/strap/BOOLEAN.lsp')
| -rw-r--r-- | src/algebra/strap/BOOLEAN.lsp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/algebra/strap/BOOLEAN.lsp b/src/algebra/strap/BOOLEAN.lsp index 4c78aa4b..eaf90f62 100644 --- a/src/algebra/strap/BOOLEAN.lsp +++ b/src/algebra/strap/BOOLEAN.lsp @@ -205,13 +205,14 @@ |before?| 136 |and| 142 |\\/| 148 >= 154 > 160 = 166 <= 172 < 178 |/\\| 184) 'NIL - (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0)) - (CONS '#(NIL |OrderedSet&| NIL NIL |Logic&| - |SetCategory&| NIL |BasicType&| NIL) + (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0)) + (CONS '#(NIL |OrderedSet&| NIL NIL NIL |Logic&| + |SetCategory&| NIL NIL |BasicType&| NIL) (CONS '#((|OrderedFinite|) (|OrderedSet|) (|PropositionalLogic|) (|Finite|) - (|Logic|) (|SetCategory|) - (|ConvertibleTo| 33) (|BasicType|) + (|BooleanLogic|) (|Logic|) + (|SetCategory|) (|ConvertibleTo| 33) + (|Type|) (|BasicType|) (|CoercibleTo| 35)) (|makeByteWordVec2| 38 '(1 25 18 0 26 0 27 0 29 0 25 0 31 2 0 |