diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 4f1e166cab6c897a5c8dcdbee4b40c068d87bc2a..32a9f1fb2450ce00d8abcb7f1003498dab4c93e7 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