housekeeping
Thu Jun 25 09:45:17 PDT 2009 attila.lendvai@gmail.com
* housekeeping
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-walker/src/ast-utils.lisp new-cl-walker/src/ast-utils.lisp
--- old-cl-walker/src/ast-utils.lisp 2014-09-02 02:06:13.000000000 -0700
+++ new-cl-walker/src/ast-utils.lisp 2014-09-02 02:06:13.000000000 -0700
@@ -42,7 +42,7 @@
(multiple-value-prog1-form first-form-of other-forms-of)
(progv-form variables-form-of values-form-of)
(setq-form variable-of value-of)
- ;; go-form: dragons be there (and an infinite recursion, too)
+ ;; go-form: leave it alone, dragons be there (and an infinite recursion, too)
(the-form type-of value-of)
(unwind-protect-form protected-form-of cleanup-form-of)))
diff -rN -u old-cl-walker/src/infrastructure.lisp new-cl-walker/src/infrastructure.lisp
--- old-cl-walker/src/infrastructure.lisp 2014-09-02 02:06:13.000000000 -0700
+++ new-cl-walker/src/infrastructure.lisp 2014-09-02 02:06:13.000000000 -0700
@@ -27,8 +27,10 @@
,form)))
,@body))
-(defun walk-form (form &optional (parent nil) (env (make-walk-environment)))
+(defun walk-form (form &optional (parent nil) env)
"Walk FORM and return a CLOS based AST that represents it."
+ (unless env
+ (setf env (make-walk-environment)))
(let ((*current-form* (or *current-form*
form)))
(funcall (find-walker-handler* form) form parent env)))