Walk #'(setf accessor) correctly
Fri Aug 18 23:20:21 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Walk #'(setf accessor) correctly
diff -rN -u old-public_html/src/walker.lisp new-public_html/src/walker.lisp
--- old-public_html/src/walker.lisp 2014-04-18 22:03:24.000000000 -0700
+++ new-public_html/src/walker.lisp 2014-04-18 22:03:24.000000000 -0700
@@ -148,7 +148,10 @@
(error "Invalid function name ~A" (value form)))
(transaction-function? (value form)))
(:method ((form function-object-form))
- (transaction-function? (name form)))
+ (etypecase (name form)
+ (symbol (transaction-function? (name form)))
+ (cons (and (eq (car (name form)) 'cl:setf)
+ (transaction-function? (cadr (name form)))))))
(:method ((form symbol))
(assoc form *trans-funs*))
(:method ((form form))