Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/pprint.lisp
    ... ... @@ -2074,7 +2074,9 @@ When annotations are present, invoke them at the right positions."
    2074 2074
         (lisp::with-array-data pprint-with-like)
    
    2075 2075
         (c:define-vop pprint-define-vop)
    
    2076 2076
         (c:sc-case pprint-sc-case)
    
    2077
    -    (c:define-assembly-routine pprint-define-assembly)))
    
    2077
    +    (c:define-assembly-routine pprint-define-assembly)
    
    2078
    +    (c:deftransform pprint-defun)
    
    2079
    +    (c:defoptimizer pprint-defun)))
    
    2078 2080
     
    
    2079 2081
     (defun pprint-init ()
    
    2080 2082
       (setf *initial-pprint-dispatch* (make-pprint-dispatch-table))