From d966444f8db1432b8aed16cab1eaab94a7afde2c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 22 Jun 2009 12:24:02 +0200 Subject: [PATCH] The compiler must use the standard readtable to not be affected by users's choice. --- src/cmp/cmpwt.lsp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp index 50da182a8..e249d347c 100644 --- a/src/cmp/cmpwt.lsp +++ b/src/cmp/cmpwt.lsp @@ -165,6 +165,7 @@ (*print-array* t) (*print-readably* t) (*read-default-float-format* 'single-float) + (*readtable* (si::standard-readtable)) (sys::*print-package* (find-package "CL")) (sys::*print-structure* t) (output nil))