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/ORDRING.lsp | 29 +++++++++++++----------------
 1 file changed, 13 insertions(+), 16 deletions(-)

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

diff --git a/src/algebra/strap/ORDRING.lsp b/src/algebra/strap/ORDRING.lsp
index c5109a0a..e25fce4e 100644
--- a/src/algebra/strap/ORDRING.lsp
+++ b/src/algebra/strap/ORDRING.lsp
@@ -4,23 +4,20 @@
 (DEFPARAMETER |OrderedRing;AL| 'NIL) 
 
 (DEFUN |OrderedRing;| ()
-  (PROG (#0=#:G1402)
-    (RETURN
-      (PROG1 (LETT #0#
-                   (|Join| (|OrderedAbelianGroup|) (|Ring|) (|Monoid|)
-                           (|mkCategory| '|domain|
-                               '(((|positive?| ((|Boolean|) $)) T)
-                                 ((|negative?| ((|Boolean|) $)) T)
-                                 ((|sign| ((|Integer|) $)) T)
-                                 ((|abs| ($ $)) T))
-                               NIL '((|Integer|) (|Boolean|)) NIL))
-                   |OrderedRing|)
-        (|setShellEntry| #0# 0 '(|OrderedRing|)))))) 
+  (LET ((#0=#:G1402
+            (|Join| (|OrderedAbelianGroup|) (|Ring|) (|Monoid|)
+                    (|mkCategory| '|domain|
+                        '(((|positive?| ((|Boolean|) $)) T)
+                          ((|negative?| ((|Boolean|) $)) T)
+                          ((|sign| ((|Integer|) $)) T)
+                          ((|abs| ($ $)) T))
+                        NIL '((|Integer|) (|Boolean|)) NIL))))
+    (|setShellEntry| #0# 0 '(|OrderedRing|))
+    #0#)) 
 
 (DEFUN |OrderedRing| ()
-  (LET ()
-    (COND
-      (|OrderedRing;AL|)
-      (T (SETQ |OrderedRing;AL| (|OrderedRing;|)))))) 
+  (COND
+    (|OrderedRing;AL|)
+    (T (SETQ |OrderedRing;AL| (|OrderedRing;|))))) 
 
 (MAKEPROP '|OrderedRing| 'NILADIC T) 
-- 
cgit v1.2.3