From 5768bef1b2b7cd3fd38733a26a33ec2f0d8e6c01 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 5 May 2010 01:23:36 +0000
Subject: 	* interp/c-util.boot (backendCompileSPADSLAM): Generate more 
 readable Lisp code.

---
 src/algebra/strap/MONOID.lsp | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

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

diff --git a/src/algebra/strap/MONOID.lsp b/src/algebra/strap/MONOID.lsp
index 538e9b0e..2fc46389 100644
--- a/src/algebra/strap/MONOID.lsp
+++ b/src/algebra/strap/MONOID.lsp
@@ -4,23 +4,19 @@
 (DEFPARAMETER |Monoid;AL| 'NIL) 
 
 (DEFUN |Monoid;| ()
-  (PROG (#0=#:G1398)
-    (RETURN
-      (PROG1 (LETT #0#
-                   (|Join| (|SemiGroup|)
-                           (|mkCategory| '|domain|
-                               '(((|One| ($) |constant|) T)
-                                 ((|sample| ($) |constant|) T)
-                                 ((|one?| ((|Boolean|) $)) T)
-                                 ((** ($ $ (|NonNegativeInteger|))) T)
-                                 ((|recip| ((|Union| $ "failed") $)) T))
-                               NIL
-                               '((|NonNegativeInteger|) (|Boolean|))
-                               NIL))
-                   |Monoid|)
-        (|setShellEntry| #0# 0 '(|Monoid|)))))) 
+  (LET ((#0=#:G1398
+            (|Join| (|SemiGroup|)
+                    (|mkCategory| '|domain|
+                        '(((|One| ($) |constant|) T)
+                          ((|sample| ($) |constant|) T)
+                          ((|one?| ((|Boolean|) $)) T)
+                          ((** ($ $ (|NonNegativeInteger|))) T)
+                          ((|recip| ((|Union| $ "failed") $)) T))
+                        NIL '((|NonNegativeInteger|) (|Boolean|)) NIL))))
+    (|setShellEntry| #0# 0 '(|Monoid|))
+    #0#)) 
 
 (DEFUN |Monoid| ()
-  (LET () (COND (|Monoid;AL|) (T (SETQ |Monoid;AL| (|Monoid;|)))))) 
+  (COND (|Monoid;AL|) (T (SETQ |Monoid;AL| (|Monoid;|))))) 
 
 (MAKEPROP '|Monoid| 'NILADIC T) 
-- 
cgit v1.2.3