Re: [iterate-devel] clisp setf wark around

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