From 216408a298d169b5ad2208993f5bad06efecc4f2 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 11 Dec 2011 21:41:20 +0100
Subject: [PATCH] Output a comment with the name of the function/macro besides
 ecl_cmp_def{un,macro}

---
 src/cmp/cmptop.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index 2ba566503..0c8418f5f 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -817,6 +817,7 @@
     (new-local fun)
     (wt-nl (if macro "ecl_cmp_defmacro(" "ecl_cmp_defun(")
 	   loc ");")
+    (wt-comment (loc-immediate-value fname))
     (close-inline-blocks)))
 
 (defun output-cfuns (stream)