[iterate-devel] clisp setf wark around

[Hoehle, Joerg-Cyril]

Hi,

Marco Baringer wrote:
>This (5 line) patch deals with clisp's ((setf foo) value other-args).

Thanks for pointing out the problem. I wrote to clisp-list about it.

Do you have a testcase? How did you find out about this bug?

>+    (walk `(funcall ',(get (second (car form)) 'system::setf-function)
I'll soon submit a patch for Iterate which also works with
[9]> (macroexpand-1'(setf (values-list (list a b c)) (foo)))
(LET* ((#:G6359 (LIST A B C))) ((SETF VALUES-LIST) (FOO) #:G6359)) ;
T
which your's doesn't (looking up internals from sys::setf-function is not a good idea). I would probably use walk-cdr or some such.

Regards,
	Jorg Hohle