In article <··············@mute.eaglets.com>,
Sam Steingold <···@usa.net> wrote:
>(defstruct (zz (:print-function prin-zz)) ...)
>(defun print-zz () ...)
>(defstruct (xx (:print-function print-xx)) (zz (make-zz) :type zz))
>(defun print-xx (xx ...) ...)
>
>What should I use for printing (xx-zz xx) in print-xx?
>print-zz? princ? format?
Use WRITE. It should handle the depth correctly, and also pass through the
bindings of all the *PRINT-xxx* variables. If you use PRINC or PRIN1 then
you'll override *PRINT-ESCAPE*.
--
Barry Margolin, ······@bbnplanet.com
GTE Internetworking, Powered by BBN, Cambridge, MA
*** DON'T SEND TECHNICAL QUESTIONS DIRECTLY TO ME, post them to newsgroups.