diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index ccf0efe496e25a4216daf626be7c7add4225ed15..2e4202c352fb7072d0a797fb1d0b58473e657720 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