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
-
e9eed900
by Raymond Toy at 2024-04-01T18:40:20-07:00
2 changed files:
Changes:
| ... | ... | @@ -65,6 +65,7 @@ public domain. |
| 65 | 65 | * ~~#288~~ Re-enable `deftransform` for random integers.
|
| 66 | 66 | * ~~#290~~ Pprint `with-float-traps-masked` better
|
| 67 | 67 | * ~~#291~~ Pprint `handler-case` neatly.
|
| 68 | + * ~~#297~~ Pprint `assemble` with less indentation.
|
|
| 68 | 69 | * Other changes:
|
| 69 | 70 | * Improvements to the PCL implementation of CLOS:
|
| 70 | 71 | * Changes to building procedure:
|
| ... | ... | @@ -121,3 +121,16 @@ |
| 121 | 121 | (:no-error ()
|
| 122 | 122 | (format nil "Nothing bad happened.")))
|
| 123 | 123 | s))))
|
| 124 | + |
|
| 125 | +(define-test pprint.assemble
|
|
| 126 | + (:tag :issues)
|
|
| 127 | + (assert-equal
|
|
| 128 | + "
|
|
| 129 | +(NEW-ASSEM:ASSEMBLE (*CODE-SEGMENT* 'XOROSHIRO-UPDATE)
|
|
| 130 | + XOROSHIRO-UPDATE
|
|
| 131 | + (PUSH (CONS 'XOROSHIRO-UPDATE XOROSHIRO-UPDATE) C::*ASSEMBLER-ROUTINES*))"
|
|
| 132 | + (with-output-to-string (s)
|
|
| 133 | + (pprint '(new-assem:assemble (*code-segment* 'xoroshiro-update)
|
|
| 134 | + xoroshiro-update
|
|
| 135 | + (push (cons 'xoroshiro-update xoroshiro-update) c::*assembler-routines*))
|
|
| 136 | + s)))) |