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.