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