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.