Parent Directory | Revision Log | Patch
revision 1.35 by pfdietz, Tue Aug 23 14:00:57 2005 UTC | revision 1.36 by camm, Thu Oct 13 21:18:39 2005 UTC | |
---|---|---|
# | Line 116 | Line 116 |
116 | (with-standard-io-syntax (format *debug-io* "~%~A~%" params))) | (with-standard-io-syntax (format *debug-io* "~%~A~%" params))) |
117 | (finish-output *debug-io*)) | (finish-output *debug-io*)) |
118 | ||
119 | #-gcl (setf (readtable-case *readtable*) readcase) | (setf (readtable-case *readtable*) readcase) |
120 | (let* ((str (handler-case | (let* ((str (handler-case |
121 | (with-output-to-string (s) (write obj :stream s)) | (with-output-to-string (s) (write obj :stream s)) |
122 | (print-not-readable | (print-not-readable |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |