[Openmcl-devel] pretty printing

[Tobias C. Rittweiler]

Philippe Sismondi <psismondi at arqux.com> writes:

> Should I expect ccl to pretty-print when *print-pretty* is set to T?
>
> I am new to CL, so what I did was to type in the example in Hyperspec:
>
>  (let ((*print-pretty* t))
>    (progn (write '(let ((a 1) (b 2) (c 3)) (+ a b c))) nil))
>
>>>  (LET ((A 1)
>>>        (B 2)
>>>        (C 3))
>>>    (+ A B C))
> =>  NIL
>
> I don't get any indentation when I type that example into ccl. The
> example just gets printed on one line of output, no indentation.
>
> Am I supposed to do some additional thing to get the output shown?
> Additional parameters, or fiddle with dispatch tables?

I have patches for SBCL's pretty printer which emit a mandatory instead
of a linear newline after each of LET's clauses -- among other goodies
like pretty-printing LOOP forms sanely. They should not be difficult to
adapt for CCL if you're interested.

  -T.