From e490b020ead47f1e28997c973f9d68a4452178eb Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 16 Aug 1990 19:33:37 +0000
Subject: [PATCH] Fixed ENTRY node printing to know about new entry node
 format.

---
 compiler/debug.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index 4f1e166ca..32a9f1fb2 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -1039,8 +1039,7 @@
 	   (format t "return c~D " (cont-num (return-result node)))
 	   (print-leaf (return-lambda node)))
 	  (entry
-	   (format t "entry")
-	   (mapc #'print-continuation (entry-exits node)))
+	   (format t "entry ~S" (entry-exits node)))
 	  (exit
 	   (let ((value (exit-value node)))
 	     (cond (value
-- 
GitLab