From 7e2a9dd0bac8991c2048d7c27a5c8d860a49d5c0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 7 May 1990 10:54:58 +0000
Subject: [PATCH] Made leaf printing understand the new top-level XEP
 functionals.

---
 compiler/debug.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index 3bccf3832..678be12c2 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -981,7 +981,10 @@
       (format stream "lambda ~S ~S" (leaf-name leaf)
 	      (mapcar #'leaf-name (lambda-vars leaf))))
     (optional-dispatch
-     (format stream "optional-dispatch ~S" (leaf-name leaf)))))
+     (format stream "optional-dispatch ~S" (leaf-name leaf)))
+    (functional
+     (assert (eq (functional-kind leaf) :top-level-xep))
+     (format stream "TL-XEP ~S" (entry-info-name (leaf-info leaf))))))
 
 
 ;;; Block-Or-Lose  --  Interface
-- 
GitLab