mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Variables in the PPRINT-LOGICAL-BLOCK macro must be marked as ignorable.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 12:26:39 +01:00
parent 38f4c03a35
commit b54a4e8887
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lsp/pprint.lsp
View file

@ -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