| commit | 221370c2a8557bba19e2c0b2b9fdf60ea910467d | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Mon, 9 Nov 2015 19:29:07 +0000 (9 22:29 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Mon, 9 Nov 2015 19:29:07 +0000 (9 22:29 +0300) | ||
| tree | 34e812cee51c13af56feb09d3702a734f11d072c | treesnapshot (tar.gz zip) |
| parent | 63266e5885c36a52edfae45ea1313588bdbc8b78 | commitdiff |
Fix PPRINT-LAMBDA-LIST on lists containing QUOTE.
(lambda (&key (bar 'baz))) was pprinted as (LAMBDA (&KEY (BAR (QUOTE BAZ)))
Don't call PPRINT-LAMBDA-LIST recursively or it will try to interpret
sublists as lambda-lists.
Also make sure (defmethod foo ((function (eql #'foo)))) is printed as
(FUNCTION (EQL #'FOO)), not (FUNCTION (EQL (FUNCTION FOO))).
Reported by Peter Stirling.
(lambda (&key (bar 'baz))) was pprinted as (LAMBDA (&KEY (BAR (QUOTE BAZ)))
Don't call PPRINT-LAMBDA-LIST recursively or it will try to interpret
sublists as lambda-lists.
Also make sure (defmethod foo ((function (eql #'foo)))) is printed as
(FUNCTION (EQL #'FOO)), not (FUNCTION (EQL (FUNCTION FOO))).
Reported by Peter Stirling.
| src/code/pprint.lisp | diffblobblamehistory | |
| tests/pprint.impure.lisp | diffblobblamehistory |