Skip to content
Snippets Groups Projects
Commit b4342bb8 authored by camm's avatar camm
Browse files

enable setf readtable-case in printer-aux.lsp

parent e411d836
No related branches found
No related tags found
No related merge requests found
...@@ -116,7 +116,7 @@ ...@@ -116,7 +116,7 @@
(with-standard-io-syntax (format *debug-io* "~%~A~%" params))) (with-standard-io-syntax (format *debug-io* "~%~A~%" params)))
(finish-output *debug-io*)) (finish-output *debug-io*))
#-gcl (setf (readtable-case *readtable*) readcase) (setf (readtable-case *readtable*) readcase)
(let* ((str (handler-case (let* ((str (handler-case
(with-output-to-string (s) (write obj :stream s)) (with-output-to-string (s) (write obj :stream s))
(print-not-readable (print-not-readable
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment