| commit | 2a8fbb0cdb90b829b124816e0098c12b8e8a91b9 | |
| author | Douglas Katzman <dougk@google.com> | |
| Wed, 4 Jan 2017 00:09:25 +0000 (3 19:09 -0500) | ||
| committer | Douglas Katzman <dougk@google.com> | |
| Wed, 4 Jan 2017 00:16:16 +0000 (3 19:16 -0500) | ||
| tree | f070a065a7e48759831a269b71372693cb5b1121 | treesnapshot (tar.gz zip) |
| parent | 49c7722bc5c2b2559b5264a07b4ac8d57577eb9d | commitdiff |
Refactor OUTPUT-SYMBOL
- fold both OUTPUT-SYMBOL-NAME and OUTPUT-QUOTED-SYMBOL-NAME into
a new function OUTPUT-SYMBOL* (which could rightly be named
"output-possibly-package-qualified-symbol")
- get rid of MAYBE-QUOTE confusion, since it was true only when called
from OUTPUT-SYMBOL when neither readability nor escaping is wanted.
So just do the right thing in OUTPUT-SYMBOL and call the non-quoting
output function chosen by CHOOSE-SYMBOL-OUT-FUN.
- give the structure printing mechanism a different interface
for printing a non-keyword as if it were a keyword.
- remove some multiple lookups of special vars
- fold both OUTPUT-SYMBOL-NAME and OUTPUT-QUOTED-SYMBOL-NAME into
a new function OUTPUT-SYMBOL* (which could rightly be named
"output-possibly-package-qualified-symbol")
- get rid of MAYBE-QUOTE confusion, since it was true only when called
from OUTPUT-SYMBOL when neither readability nor escaping is wanted.
So just do the right thing in OUTPUT-SYMBOL and call the non-quoting
output function chosen by CHOOSE-SYMBOL-OUT-FUN.
- give the structure printing mechanism a different interface
for printing a non-keyword as if it were a keyword.
- remove some multiple lookups of special vars
| package-data-list.lisp-expr | diffblobblamehistory | |
| src/code/print.lisp | diffblobblamehistory | |
| src/code/target-defstruct.lisp | diffblobblamehistory |