| commit | 016ae7d107a89215c89e01efe8561683ef4f234e | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Thu, 21 Apr 2016 18:38:13 +0000 (21 21:38 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Thu, 21 Apr 2016 18:38:13 +0000 (21 21:38 +0300) | ||
| tree | ce5c09432c840e3497f3475017a6fb884a8a4265 | treesnapshot (tar.gz zip) |
| parent | 1e693ce050749307b7384cf15c68733ba91237e8 | commitdiff |
Speed up float exponent printing.
Avoid calling TYPEP on *read-default-float-format*, use a case on
*read-default-float-format* and do optimized type checks there.
Avoid calling TYPEP on *read-default-float-format*, use a case on
*read-default-float-format* and do optimized type checks there.
| src/code/print.lisp | diffblobblamehistory | |
| src/code/target-format.lisp | diffblobblamehistory |