From b4342bb8fb10423f93699f641ab73f7af1ae7b9b Mon Sep 17 00:00:00 2001
From: camm <camm@localhost>
Date: Thu, 13 Oct 2005 21:18:39 +0000
Subject: [PATCH] enable setf readtable-case in printer-aux.lsp

---
 ansi-tests/printer-aux.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index ccf0efe4..2e4202c3 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -116,7 +116,7 @@
 	   (with-standard-io-syntax (format *debug-io* "~%~A~%" params)))
 	 (finish-output *debug-io*))
        
-       #-gcl (setf (readtable-case *readtable*) readcase)
+       (setf (readtable-case *readtable*) readcase)
        (let* ((str (handler-case
 		    (with-output-to-string (s) (write obj :stream s))
 		    (print-not-readable
-- 
GitLab