fix flet walking, make it less hostile to walker customizations
Sun Jan 11 16:47:37 PST 2009 attila.lendvai@gmail.com
* fix flet walking, make it less hostile to walker customizations
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/functions.lisp new-cl-walker/src/functions.lisp
--- old-cl-walker/src/functions.lisp 2014-07-29 03:47:44.000000000 -0700
+++ new-cl-walker/src/functions.lisp 2014-07-29 03:47:44.000000000 -0700
@@ -315,7 +315,8 @@
;; build up the objects for the bindings in the original env
(loop
:for (name args . body) :in binds
- :collect (cons name (walk-form `(lambda ,args ,@body) flet env)) :into bindings
+ :collect (cons name (with-form-object (lambda-node 'lambda-function-form flet)
+ (walk-lambda-like lambda-node args body env))) :into bindings
:finally (setf (bindings-of flet) bindings))
;; walk the body in the new env
(walk-implict-progn flet