with-preserved-readtable-case
Sat Sep 13 04:29:21 PDT 2008 attila.lendvai@gmail.com
* with-preserved-readtable-case
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-syntax-sugar/src/readtime-wrapper.lisp new-cl-syntax-sugar/src/readtime-wrapper.lisp
--- old-cl-syntax-sugar/src/readtime-wrapper.lisp 2014-07-29 01:41:56.000000000 -0700
+++ new-cl-syntax-sugar/src/readtime-wrapper.lisp 2014-07-29 01:41:56.000000000 -0700
@@ -6,7 +6,7 @@
(in-package :cl-syntax-sugar)
-(export '(with-package with-readtable-case))
+(export '(with-package with-readtable-case with-preserved-readtable-case))
(define-syntax readtime-wrapper (&optional (start-character #\{) (end-character #\}))
"A utility read macro for modifying the read table.
@@ -64,3 +64,7 @@
,@result)
(first result))
result)))))
+
+(defun with-preserved-readtable-case ()
+ "See WITH-READTABLE-CASE."
+ (with-readtable-case :preserve))