Raymond Toy pushed to branch issue-297-pprint-assemble at cmucl / cmucl
Commits:
-
a4eb4787
by Raymond Toy at 2024-04-01T18:41:35-07:00
-
22f0bec1
by Raymond Toy at 2024-04-01T19:26:37-07:00
2 changed files:
Changes:
... | ... | @@ -65,7 +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 | + * ~~#297~~ Pprint `new-assem:assemble` with less indentation.
|
|
69 | 69 | * Other changes:
|
70 | 70 | * Improvements to the PCL implementation of CLOS:
|
71 | 71 | * Changes to building procedure:
|
... | ... | @@ -126,11 +126,12 @@ |
126 | 126 | (:tag :issues)
|
127 | 127 | (assert-equal
|
128 | 128 | "
|
129 | -(NEW-ASSEM:ASSEMBLE (*CODE-SEGMENT* 'XOROSHIRO-UPDATE)
|
|
130 | - XOROSHIRO-UPDATE
|
|
131 | - (PUSH (CONS 'XOROSHIRO-UPDATE XOROSHIRO-UPDATE) C::*ASSEMBLER-ROUTINES*))"
|
|
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*))"
|
|
132 | 133 | (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*))
|
|
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*))
|
|
136 | 137 | s)))) |