use function-definition-form from cl-walker
Tue Jun 9 04:23:18 PDT 2009 attila.lendvai@gmail.com
* use function-definition-form from cl-walker
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-quasi-quote/src/js/syntax.lisp new-cl-quasi-quote/src/js/syntax.lisp
--- old-cl-quasi-quote/src/js/syntax.lisp 2014-04-15 22:03:33.000000000 -0700
+++ new-cl-quasi-quote/src/js/syntax.lisp 2014-04-15 22:03:33.000000000 -0700
@@ -177,9 +177,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; some js specific handlers
-(def class* function-definition-form (lambda-function-form)
- ((name)))
-
(def function %fixup-lambda-list (args)
;; this is kinda hackish, but does what we want
(nsubstitute '&rest '|&rest|
@@ -190,9 +187,9 @@
(def js-walker-handler |defun| (form parent env)
(bind (((name args &rest body) (rest form)))
(with-form-object (result 'function-definition-form parent
- :source form)
- (walk-lambda-like result (%fixup-lambda-list args) body env)
- (setf (name-of result) name))))
+ :source form
+ :name name)
+ (walk-lambda-like result (%fixup-lambda-list args) body env))))
;; cl:lambda is a macro that expands to (function (lambda ...)), so we need to define our own handler here
(def (js-walker-handler e) |lambda| (form parent env)