Update src/boot/compiled/*.clisp with better prettyprint

oldk1331 · Mar 15, 2021 · 89cb542 · 89cb542
1 parent 15d6601
commit 89cb542
Show file tree

Hide file tree

Showing 4 changed files with 227 additions and 233 deletions.
diff --git a/src/boot/compiled/btscan2.clisp b/src/boot/compiled/btscan2.clisp
@@ -479,24 +479,24 @@
 ;                false
 ;            else true
 
-(DEFUN |shoeEsc| #1=()
+(DEFUN |shoeEsc| ()
   (PROG (|n1|)
     (RETURN
      (COND
       ((NOT (< |$n| |$sz|))
        (COND
         ((|shoeNextLine| |$r|)
-         ((LAMBDA #1#
-            (LOOP (COND (|$n| (RETURN NIL)) (#2='T (|shoeNextLine| |$r|))))))
+         ((LAMBDA ()
+            (LOOP (COND (|$n| (RETURN NIL)) (#1='T (|shoeNextLine| |$r|))))))
          (|shoeEsc|) NIL)
-        (#2# NIL)))
-      (#2# (SETQ |n1| (STRPOSL " " |$ln| |$n| T))
+        (#1# NIL)))
+      (#1# (SETQ |n1| (STRPOSL " " |$ln| |$n| T))
        (COND
         ((NULL |n1|) (|shoeNextLine| |$r|)
-         ((LAMBDA #1#
-            (LOOP (COND (|$n| (RETURN NIL)) (#2# (|shoeNextLine| |$r|))))))
+         ((LAMBDA ()
+            (LOOP (COND (|$n| (RETURN NIL)) (#1# (|shoeNextLine| |$r|))))))
          (|shoeEsc|) NIL)
-        (#2# T)))))))
+        (#1# T)))))))
 
 ; shoeStartsComment()==
 ;     if $n<$sz
@@ -655,8 +655,8 @@
 ;             $floatok:=false
 ;             shoeLeafString shoeS ()
 
-(DEFUN |shoeString| #1=()
-  (PROG #1#
+(DEFUN |shoeString| ()
+  (PROG ()
     (RETURN
      (PROGN
       (SETQ |$n| (+ |$n| 1))
@@ -725,10 +725,10 @@
 ;      n
 
 (DEFUN |shoeIdEnd| (|line| |n|)
-  (PROG #1=()
+  (PROG ()
     (RETURN
      (PROGN
-      ((LAMBDA #1#
+      ((LAMBDA ()
          (LOOP
           (COND
            ((NOT (AND (< |n| (LENGTH |line|)) (|shoeIdChar| (ELT |line| |n|))))
@@ -801,7 +801,7 @@
 
 ; shoeInteger()==shoeInteger1(false)
 
-(DEFUN |shoeInteger| #1=() (PROG #1# (RETURN (|shoeInteger1| NIL))))
+(DEFUN |shoeInteger| () (PROG () (RETURN (|shoeInteger1| NIL))))
 
 ; shoeInteger1(zro) ==
 ;        n:=$n

diff --git a/src/boot/compiled/ptyout.clisp b/src/boot/compiled/ptyout.clisp
@@ -313,9 +313,9 @@
 ;          s:=cdr s
 
 (DEFUN |shoeCompileTrees| (|s|)
-  (PROG #1=()
+  (PROG ()
     (RETURN
-     ((LAMBDA #1#
+     ((LAMBDA ()
         (LOOP
          (COND ((|bStreamNull| |s|) (RETURN NIL))
                ('T
@@ -1029,9 +1029,9 @@
 ;             s:=CDR s
 
 (DEFUN |shoeDefUse| (|s|)
-  (PROG #1=()
+  (PROG ()
     (RETURN
-     ((LAMBDA #1#
+     ((LAMBDA ()
         (LOOP
          (COND ((|bStreamPackageNull| |s|) (RETURN NIL))
                ('T (PROGN (|defuse| NIL (CAR |s|)) (SETQ |s| (CDR |s|)))))))))))
@@ -1558,9 +1558,9 @@
 ;          s:=cdr s
 
 (DEFUN |shoePCompileTrees| (|s|)
-  (PROG #1=()
+  (PROG ()
     (RETURN
-     ((LAMBDA #1#
+     ((LAMBDA ()
         (LOOP
          (COND ((|bStreamPackageNull| |s|) (RETURN NIL))
                ('T