From c2ce3bd2d8af86e9387125a306c438cf53edcb13 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 2 May 2003 09:59:30 +0000
Subject: [PATCH] Write an efficiency note when cl_fdefinition() has to be
 used.

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

diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index a9fd32c43..f51d6b891 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -389,6 +389,7 @@
 ;;;
 (defun c2call-unknown-global (fname args loc inline-p narg)
   (unless loc
+    (cmpnote "Emiting FDEFINITION call for ~S" fname)
     (setq loc (list 'FDEFINITION fname)))
   (unwind-exit
    (if (eq args 'ARGS-PUSHED)