Raymond Toy pushed to branch issue-297-pprint-assemble at cmucl / cmucl Commits: a79e94ac by Raymond Toy at 2024-04-01T18:40:03-07:00 Add a test for the pprinter for new-assem:assemble - - - - - e9eed900 by Raymond Toy at 2024-04-01T18:40:20-07:00 Update release notes for issue #297 - - - - - 2 changed files: - src/general-info/release-21f.md - tests/pprint.lisp Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -65,6 +65,7 @@ public domain. * ~~#288~~ Re-enable `deftransform` for random integers. * ~~#290~~ Pprint `with-float-traps-masked` better * ~~#291~~ Pprint `handler-case` neatly. + * ~~#297~~ Pprint `assemble` with less indentation. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== tests/pprint.lisp ===================================== @@ -121,3 +121,16 @@ (:no-error () (format nil "Nothing bad happened."))) s)))) + +(define-test pprint.assemble + (:tag :issues) + (assert-equal + " +(NEW-ASSEM:ASSEMBLE (*CODE-SEGMENT* 'XOROSHIRO-UPDATE) + XOROSHIRO-UPDATE + (PUSH (CONS 'XOROSHIRO-UPDATE XOROSHIRO-UPDATE) C::*ASSEMBLER-ROUTINES*))" + (with-output-to-string (s) + (pprint '(new-assem:assemble (*code-segment* 'xoroshiro-update) + xoroshiro-update + (push (cons 'xoroshiro-update xoroshiro-update) c::*assembler-routines*)) + s)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/cf6803a34ed3ec008fb0c73... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/cf6803a34ed3ec008fb0c73... You're receiving this email because of your account on gitlab.common-lisp.net.