Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

3 changed files:

Changes:

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

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

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