From f5181e8acaf34cb5a26a30bd3901a19485933c6d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 25 Jul 2010 00:12:57 +0000
Subject: 	* interp/cattable.boot: Use %true for truth value in VM
 expressions. 	* interp/clam.boot: Likewise. 	* interp/define.boot:
 Likewise. 	* interp/format.boot: Likewise. 	* interp/functor.boot:
 Likewise. 	* interp/g-opt.boot: Likewise. 	* interp/mark.boot: Likewise. 
 * interp/pspad1.boot: Likewise. 	* interp/pspad2.boot: Likewise. 
 * interp/slam.boot: Likewise. 	* interp/wi1.boot: Likewise. 	*
 interp/wi2.boot: Likewise. 	* interp/sys-constants.boot: Remove $true and
 $false as unused.

---
 src/algebra/strap/ALAGG.lsp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'src/algebra/strap/ALAGG.lsp')

diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp
index e8aa377c..c33b5d87 100644
--- a/src/algebra/strap/ALAGG.lsp
+++ b/src/algebra/strap/ALAGG.lsp
@@ -16,19 +16,19 @@
                                      (|:| |entry| |t#2|))))
                     (COND
                       (|AssociationListAggregate;CAT|)
-                      ('T
-                       (SETQ |AssociationListAggregate;CAT|
-                             (|Join| (|TableAggregate| '|t#1| '|t#2|)
-                                     (|ListAggregate| '#1#)
-                                     (|mkCategory| '|domain|
-                                      '(((|assoc|
-                                          ((|Union|
-                                            (|Record| (|:| |key| |t#1|)
-                                             (|:| |entry| |t#2|))
-                                            "failed")
-                                           |t#1| $))
-                                         T))
-                                      NIL 'NIL NIL)))))))))
+                      (T (SETQ |AssociationListAggregate;CAT|
+                               (|Join| (|TableAggregate| '|t#1| '|t#2|)
+                                       (|ListAggregate| '#1#)
+                                       (|mkCategory| '|domain|
+                                        '(((|assoc|
+                                            ((|Union|
+                                              (|Record|
+                                               (|:| |key| |t#1|)
+                                               (|:| |entry| |t#2|))
+                                              "failed")
+                                             |t#1| $))
+                                           T))
+                                        NIL 'NIL NIL)))))))))
     (|setShellEntry| #0# 0
         (LIST '|AssociationListAggregate| (|devaluate| |t#1|)
               (|devaluate| |t#2|)))
-- 
cgit v1.2.3