/[gcl]/gcl/ansi-tests/printer-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/printer-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26