From a2b6887e8324c499ded498bbf1e927e5be7d43b7 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 25 Jan 2010 20:50:31 +0100 Subject: [PATCH] Missing argument for a warning --- src/new-cmp/cmpmain.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp index 424751c1c..92a7d30a4 100644 --- a/src/new-cmp/cmpmain.lsp +++ b/src/new-cmp/cmpmain.lsp @@ -647,7 +647,8 @@ after compilation." (warn "COMPILE can not compile generic functions yet") (return-from compile (values def t nil))) ((null (setq form (function-lambda-expression def))) - (warn "We have lost the original function definition for ~s. Compilation to C failed") + (warn "We have lost the original function definition for ~s. Compilation to C failed" + name) (return-from compile (values def t nil))) (t (setq form `(setf (symbol-function ',name) #',form))))