follow cl-walker walk-ast rename
Tue Dec 30 05:56:56 PST 2008 attila.lendvai@gmail.com
* follow cl-walker walk-ast rename
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/lambda.lisp new-cl-syntax-sugar/src/lambda.lisp
--- old-cl-syntax-sugar/src/lambda.lisp 2014-07-14 07:07:16.000000000 -0700
+++ new-cl-syntax-sugar/src/lambda.lisp 2014-07-14 07:07:16.000000000 -0700
@@ -106,14 +106,14 @@
(parse-integer (subseq (symbol-name form) 1) :junk-allowed t)))
(collect-variable-references (top-form)
(let ((result (list)))
- (walk-ast top-form
- (lambda (form)
- (when (typep form '(or free-variable-reference-form
- lexical-variable-reference-form))
- (push form result))
- (if (typep form 'lambda-function-form)
- nil
- t)))
+ (map-ast (lambda (form)
+ (when (typep form '(or free-variable-reference-form
+ lexical-variable-reference-form))
+ (push form result))
+ (if (typep form 'lambda-function-form)
+ nil ; don't descent any deeper
+ form))
+ top-form)
result)))
(or (loop
:for var-form :in (collect-variable-references