Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 65c1dbb)
Missing argument for a warning
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 25 Jan 2010 19:50:31 +0000 (20:50 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 25 Jan 2010 19:50:31 +0000 (20:50 +0100)
src/new-cmp/cmpmain.lsp patch | blob | blame | history

diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp
index 424751c..92a7d30 100644 (file)
--- 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))))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)