headers
Tobias C. Rittweiler | 6 Nov 2009 21:14
Picon

WITH-STANDARD-IO-SYNTAX must bind *PRINT-PPRINT-DISPATCH*


Seems obvious, but SBCL doesn't do that (and hence ABCL, too, as its
pprinter stems from SBCL's code base.)

Test case:

    (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
      (set-pprint-dispatch 'symbol #'(lambda (stream obj)
                                       (declare (ignore obj))
                                       (write-string "FOO" stream)))
      (with-standard-io-syntax
        (let ((*print-pretty* t))
          (assert (string= (princ-to-string 'bar) "BAR")))))

Would be cool if someone could add that to the suite as I'm scarce of
time right now.

  -T.
Permalink | Reply | 1 comment |
headers
Sam Steingold | 8 Nov 2009 04:19
Picon

Re: WITH-STANDARD-IO-SYNTAX must bind *PRINT-PPRINT-DISPATCH*

> * Tobias C. Rittweiler <gpe <at> serrovgf.qr> [2009-11-06 21:14:23 +0100]:
>
> Would be cool if someone could add that to the suite as I'm scarce of
> time right now.
done

--

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 9.04 (jaunty)
http://memri.org http://pmw.org.il http://mideasttruth.com
http://camera.org http://jihadwatch.org http://dhimmi.com
Lisp: Serious empowerment.
Permalink | Reply | 0 comments |

Gmane