renamed to *quasi-quote-lexical-depth*
Sat Feb 28 07:36:11 PST 2009 attila.lendvai@gmail.com
* renamed to *quasi-quote-lexical-depth*
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/package.lisp new-cl-syntax-sugar/src/package.lisp
--- old-cl-syntax-sugar/src/package.lisp 2014-07-31 12:42:02.000000000 -0700
+++ new-cl-syntax-sugar/src/package.lisp 2014-07-31 12:42:02.000000000 -0700
@@ -15,7 +15,7 @@
#:system-connection-with-readtable
#:define-syntax
#:*toplevel-readtable*
- #:*quasi-quote-depth*
+ #:*quasi-quote-lexical-depth*
#:*quasi-quote-nesting-level*
#:get-macro-character*
#:with-local-readtable
diff -rN -u old-cl-syntax-sugar/src/quasi-quote.lisp new-cl-syntax-sugar/src/quasi-quote.lisp
--- old-cl-syntax-sugar/src/quasi-quote.lisp 2014-07-31 12:42:02.000000000 -0700
+++ new-cl-syntax-sugar/src/quasi-quote.lisp 2014-07-31 12:42:02.000000000 -0700
@@ -6,7 +6,7 @@
(in-package :cl-syntax-sugar)
-(defparameter *quasi-quote-depth* 0
+(defparameter *quasi-quote-lexical-depth* 0
"The absolute level of read-time (lexical) nesting of the quasi-quote readers. It does not decrease at unquotes.")
(defparameter *quasi-quote-nesting-level* 0
@@ -88,7 +88,7 @@
(declare (ignorable message args))
#+nil
`(progn
- (write-string (make-string (* 2 *quasi-quote-depth*) :initial-element #\Space) *debug-io*)
+ (write-string (make-string (* 2 *quasi-quote-lexical-depth*) :initial-element #\Space) *debug-io*)
(format *debug-io* ,message ,@args)
(format *debug-io* " (dispatched-quasi-quote-name: ~S, start/end character: ~S ~S)" dispatched-quasi-quote-name start-character end-character)
(terpri *debug-io*)
@@ -150,7 +150,7 @@
(log "READ-QUASI-QUOTE entering, unquote-reader on ~S is ~A" unquote-character (get-macro-character* unquote-character *readtable*))
(bind ((entering-readtable *readtable*)
(entering-quasi-quote-nesting-level *quasi-quote-nesting-level*)
- (*quasi-quote-depth* (1+ *quasi-quote-depth*))
+ (*quasi-quote-lexical-depth* (1+ *quasi-quote-lexical-depth*))
(*quasi-quote-nesting-level* (1+ *quasi-quote-nesting-level*))
(*toplevel-readtable* (or *toplevel-readtable* *readtable*)))
(with-local-readtable