CMUCL commit: src/code (extfmts.lisp)

[Raymond Toy]

    Date: Monday, March 8, 2010 @ 15:43:21
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: extfmts.lisp

Bind *readtable* to the standard table when compiling the external
format in case the user has set a non-standard readtable that can't
process the external format.


--------------+
 extfmts.lisp |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)


Index: src/code/extfmts.lisp
diff -u src/code/extfmts.lisp:1.20 src/code/extfmts.lisp:1.21
--- src/code/extfmts.lisp:1.20	Sun Oct 18 10:21:23 2009
+++ src/code/extfmts.lisp	Mon Mar  8 15:43:20 2010
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/extfmts.lisp,v 1.20 2009-10-18 14:21:23 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/extfmts.lisp,v 1.21 2010-03-08 20:43:20 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -362,6 +362,10 @@
       (and (consp name) (find-external-format name))
       (and (let ((*package* (find-package "STREAM"))
 		 (lisp::*enable-package-locked-errors* nil)
+		 ;; The standard readtable is what we want to use when
+		 ;; compiling the external format, in case the user
+		 ;; has changed *readtable* in some way.
+		 (*readtable* (copy-readtable nil))
 		 (s (open (format nil "ext-formats:~(~A~).lisp" name)
 			  :if-does-not-exist nil :external-format :iso8859-1)))
 	     (when s