Thanks for the bug report.
Marco wrote:
bese-2004@common-lisp.net/iterate--clisp-setf--1.0--patch-1
Great, but do you have an idea how I can look at that 5-liner? My connection to the internet is via a firewall, so I can't use specific protocols (like CVS, unless tunelled by ssh), nor does GNUArch (not installed) help me.
By looking around URLs, I found browseable (pseudo-?)directories like but no trace of your patch. All files there are from September 2004.
http://common-lisp.net/project/iterate/iterate-devel@common-lisp.net--2004/i...
Regards, Jorg Hohle.
"Hoehle, Joerg-Cyril" Joerg-Cyril.Hoehle@t-systems.com writes:
Thanks for the bug report.
Marco wrote:
bese-2004@common-lisp.net/iterate--clisp-setf--1.0--patch-1
Great, but do you have an idea how I can look at that 5-liner? My connection to the internet is via a firewall, so I can't use specific protocols (like CVS, unless tunelled by ssh), nor does GNUArch (not installed) help me.
--- orig/iterate.lisp +++ mod/iterate.lisp @@ -646,6 +646,13 @@ (values (list (cons bod abod)) (nconc decs adecs) (nconc init ainit) (nconc step astep) (nconc final afinal) (nconc final-prot afinal-prot))))) + + #+clisp + ((and (eql 'setf (first (car form))) + (get (second (car form)) 'system::setf-function)) + (walk `(funcall ',(get (second (car form)) 'system::setf-function) + ,@(cdr form)))) + (t (clause-error "The form ~a is not a valid Lisp expression" form))))
-
Hoehle, Joerg-Cyril -
Marco Baringer