Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4e35a71)
Missing arguments to several warnings (S. Bourakev).
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 25 Jan 2010 08:09:10 +0000 (09:09 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 25 Jan 2010 08:09:10 +0000 (09:09 +0100)
contrib/bytecmp/bytecmp.lsp patch | blob | blame | history
src/cmp/cmpmain.lsp patch | blob | blame | history

diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp
index ba94d11..87aa581 100644 (file)
--- a/contrib/bytecmp/bytecmp.lsp
+++ b/contrib/bytecmp/bytecmp.lsp
@@ -32,7 +32,8 @@
        (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 failed")
+       (warn "We have lost the original function definition for ~s. Compilation failed"
+              name)
        (return-from compile (values def t nil)))
        (t
        (setq form `(setf (symbol-function ',name) #',form))))
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index c7b6f3a..83888ba 100755 (executable)
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -758,7 +758,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)