<div class="gmail_quote">On Sun, Feb 7, 2010 at 12:09 PM, Tobias C. Rittweiler <span dir="ltr"><<a href="mailto:tcr@freebits.de">tcr@freebits.de</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="im">And again another:</div>
<br>
(defun test (x)<br>
  (pprint-logical-block (nil nil :prefix "(" :suffix ")")<br>
    (princ x)))</blockquote><div><br></div><div>That one was a bit harder -- old SBCL code we no longer keep track of due to their reorganization of the pretty printer.</div><div><br></div><div>Juanjo</div></div><br>-- <br>
Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>