Use cl:with-standard-io-syntax.

Pascal J. Bourguignon [2012-02-15 07:47]
Use cl:with-standard-io-syntax.
Filename
common-lisp/lisp-reader/reader.lisp
diff --git a/common-lisp/lisp-reader/reader.lisp b/common-lisp/lisp-reader/reader.lisp
index 85817ad..0830ad0 100644
--- a/common-lisp/lisp-reader/reader.lisp
+++ b/common-lisp/lisp-reader/reader.lisp
@@ -1753,7 +1753,7 @@ NOTE:   terminates with any kind of list, dotted, circular, etc.
   "Standard #S dispatch macro reader."
   (declare (ignore sub-char arg))
   (let* ((data (read stream t nil t))
-         (constructor (intern (with-standard-io-syntax (format nil "MAKE-~A" (first data)))))
+         (constructor (intern (cl:with-standard-io-syntax (format nil "MAKE-~A" (first data)))))
          (arguments   (loop
                          :with keyword-package = (find-package "KEYWORD")
                          :for (k v) :on (rest data) :by (function cddr)
ViewGit