From 6fa5b85a7a68ad4422b98eb982a2a44998d6ee53 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 20 Apr 2010 14:28:31 +0000 Subject: * interp/compiler.boot (joinIntegerModes): New. (compIntegerValue): Likewise. (compStepIterator): Likewise. (compIterate): Use it. --- src/algebra/strap/BOOLEAN.lsp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/algebra/strap/BOOLEAN.lsp') 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 -- cgit v1.2.3