Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 38f4c03)
Variables in the PPRINT-LOGICAL-BLOCK macro must be marked as ignorable.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:26:39 +0000 (12:26 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:26:39 +0000 (12:26 +0100)
src/lsp/pprint.lsp patch | blob | blame | history

diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index 716fccc..be0be08 100644 (file)
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -874,6 +874,7 @@
         (function
          `(ext::lambda-block ,block-name (,object-var ,stream-var
                                           &aux (,count-name 0))
+            (declare (ignorable ,object-var ,stream-var ,count-name))
            (macrolet ((pprint-pop ()
                         '(progn
                           (unless (pprint-pop-helper ,object-var ,count-name
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)