* Dyte, Jon wrote:

> (defun print-zzz (obj stream level)
>   (write-string "[ " stream)
>   ;; next-lines to deliberatley throw an error
>   (let ((element (car t)))
>     (write element :stream stream))
>   (write-string " ]" stream)) 

> in the listener on ACL Linux 4.3


>> (setq test (make-zzz))
>> [ #<Printer Error @ #x5654321>#
>                       ^^^^^^^^^^;; this varies
> Note the right " ]" does not get printed

I don't think you can rely on the printer not wrapping it's own error
handlers around things, which are catching the error and dealing with
it somehow.  In fact this is usally a good thing as it avoids the
awful infinite error recursions you can get otherwise (`error trying
to print ...').

--tim