From 4348e69c730e4e3faa7b993ac0dac5ec426a374c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Jun 2010 05:36:53 +0000
Subject: 	* interp/c-util.boot (needPROGS?): New. 
 (transformToBackendCode): Use it.  Don't add unneeded PROG/RETURN.

---
 src/algebra/strap/OUTFORM.lsp | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

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

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 0e62d8b9..0e90fa71 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -1016,22 +1016,19 @@
   (LIST 'INTSIGN |b| |c| |a|)) 
 
 (DEFUN |OutputForm| ()
-  (PROG ()
+  (PROG (#0=#:G1557)
     (RETURN
-      (PROG (#0=#:G1557)
-        (RETURN
-          (COND
-            ((LETT #0# (HGET |$ConstructorCache| '|OutputForm|)
-                   |OutputForm|)
-             (|CDRwithIncrement| (CDAR #0#)))
-            ('T
-             (UNWIND-PROTECT
-               (PROG1 (CDDAR (HPUT |$ConstructorCache| '|OutputForm|
-                                   (LIST
-                                    (CONS NIL (CONS 1 (|OutputForm;|))))))
-                 (LETT #0# T |OutputForm|))
-               (COND
-                 ((NOT #0#) (HREM |$ConstructorCache| '|OutputForm|))))))))))) 
+      (COND
+        ((LETT #0# (HGET |$ConstructorCache| '|OutputForm|)
+               |OutputForm|)
+         (|CDRwithIncrement| (CDAR #0#)))
+        ('T
+         (UNWIND-PROTECT
+           (PROG1 (CDDAR (HPUT |$ConstructorCache| '|OutputForm|
+                               (LIST (CONS NIL
+                                      (CONS 1 (|OutputForm;|))))))
+             (LETT #0# T |OutputForm|))
+           (COND ((NOT #0#) (HREM |$ConstructorCache| '|OutputForm|))))))))) 
 
 (DEFUN |OutputForm;| ()
   (LET ((|dv$| (LIST '|OutputForm|)) ($ (|newShell| 150))
-- 
cgit v1.2.3