Raymond Toy pushed to branch issue-297-pprint-assemble at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/general-info/release-21f.md
    ... ... @@ -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:
    

  • tests/pprint.lisp
    ... ... @@ -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))))