Skip to content

pprint deftransform and defoptimizer neatly

We should pprint deftransform and defoptimizer a bit more neatly. We currently have:

* (pprint '(c::deftransform float ((n prototype) (* single-float) * :when :both)
  '(%single-float n)))
(C:DEFTRANSFORM FLOAT
                ((N PROTOTYPE) (* SINGLE-FLOAT) * :WHEN :BOTH)
                '(%SINGLE-FLOAT N))

It looks better if pprinted as if it were a defun:

* (pp::pprint-defun *standard-output* '(c::deftransform float ((n prototype) (* single-float) * :when :both)
  '(%single-float n)))
(C:DEFTRANSFORM FLOAT ((N PROTOTYPE) (* SINGLE-FLOAT) * :WHEN :BOTH)
  '(%SINGLE-FLOAT N))

Similarly, defoptimizer should be printed like a defun.