Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
62631e15
by Raymond Toy at 2024-04-07T22:52:52+00:00
-
7bec290f
by Raymond Toy at 2024-04-07T22:53:01+00:00
3 changed files:
Changes:
... | ... | @@ -2088,6 +2088,7 @@ When annotations are present, invoke them at the right positions." |
2088 | 2088 | (c:define-vop pprint-define-vop)
|
2089 | 2089 | (c:sc-case pprint-sc-case)
|
2090 | 2090 | (c:define-assembly-routine pprint-define-assembly)
|
2091 | + (new-assem:assemble pprint-multiple-value-bind)
|
|
2091 | 2092 | (c:deftransform pprint-defun)
|
2092 | 2093 | (c:defoptimizer pprint-defun)
|
2093 | 2094 | (ext:with-float-traps-masked pprint-with-like)
|
... | ... | @@ -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 `new-assem: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,17 @@ |
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 (C:*CODE-SEGMENT* 'X86::XOROSHIRO-UPDATE)
|
|
130 | + X86::XOROSHIRO-UPDATE
|
|
131 | + (PUSH (CONS 'X86::XOROSHIRO-UPDATE X86::XOROSHIRO-UPDATE)
|
|
132 | + C::*ASSEMBLER-ROUTINES*))"
|
|
133 | + (with-output-to-string (s)
|
|
134 | + (pprint '(new-assem:assemble (c::*code-segment* 'vm::xoroshiro-update)
|
|
135 | + vm::xoroshiro-update
|
|
136 | + (push (cons 'vm::xoroshiro-update vm::xoroshiro-update) c::*assembler-routines*))
|
|
137 | + s)))) |