From 2bebffcbc066f840cbbdfd8ee190f433ce5180c9 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Mon, 16 Jul 2001 13:21:07 +0000
Subject: [PATCH] =?UTF-8?q?ANSI=20conformance=20fix=20from=20Ant=C3=B3nio?=
 =?UTF-8?q?=20Leit=C3=A3o=20via=20Joao=20Cachopo:=20=20=20According=20to?=
 =?UTF-8?q?=20the=20standard,=20COPY-READTABLE=20should=20copy=20the=20set?=
 =?UTF-8?q?ting=20of=20=20=20READTABLE-CASE=20but=20the=20current=20versio?=
 =?UTF-8?q?n=20of=20CMUCL=20does=20not.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 code/reader.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/code/reader.lisp b/code/reader.lisp
index 592278576..225ecf501 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.30 2001/03/04 20:12:40 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.31 2001/07/16 13:21:07 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -277,6 +277,8 @@
 	  (mapcar #'(lambda (pair) (cons (car pair)
 					 (copy-seq (cdr pair))))
 		  (dispatch-tables from-readtable)))
+    (setf (readtable-case to-readtable)
+	  (readtable-case from-readtable))
     to-readtable))
 
 (defun set-syntax-from-char (to-char from-char &optional
-- 
GitLab