From: Peter G. <pe...@ar...> - 2006-03-11 18:06:21
|
On Sun, 5 Mar 2006 at 23:57:10 -0500, Alan Ruttenberg wrote: > patch to print.lisp > > (defun output-ugly-object (object stream) > (cond ((consp object) > (output-list object stream)) > ((and (vectorp object) > (not (stringp object)) > (not (bit-vector-p object))) > (output-vector object stream)) > ((structure-object-p object) > (print-object object stream)) > ;; patch > ((typep object 'standard-object) > (print-object object stream)) > ;; end patch > ((xp::xp-structure-p stream) > (let ((s (sys::%write-to-string object))) > (xp::write-string++ s stream 0 (length s)))) > (t > (%output-object object stream)))) Applied. Thanks! -Peter |