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