disable-objcl-reader-macros resets the *readtable*.

Pascal J. Bourguignon [2015-06-23 01:27]
disable-objcl-reader-macros resets the *readtable*.
Filename
objcl/objcl.lisp
diff --git a/objcl/objcl.lisp b/objcl/objcl.lisp
index 2b271a0..b01a8d9 100644
--- a/objcl/objcl.lisp
+++ b/objcl/objcl.lisp
@@ -772,7 +772,8 @@ RETURN:         A Lisp STRING containing the characters of AN-OBJC-STRING.
 (defmacro disable-objcl-reader-macros ()
   "Reset in the *READTABLE* the reader macros for #\[ and #\@."
   '(eval-when (:compile-toplevel :load-toplevel :execute)
-    (reset-objc-reader-macros)))
+    ;; (reset-objc-reader-macros)
+    (setf *readtable* (copy-readtable nil))))


 (defmacro set-objective-cl-syntax ()
ViewGit