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