#368: File level define-setf-expander is not available for expansion unless wrapped in an eval-when -----------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.4.0 Component: java | Version: 1.4.0-dev Resolution: | Keywords: -----------------------+----------------------- Comment (by mevenson): The exact conditions to trigger this problem are not simple, as the following works in both interpreted and compiled modes {{{ ;;<file:///opt/local/share/doc/lisp/HyperSpec-7-0/HyperSpec/Body/m_defi_3.htm> (defun lastguy (x) (car (last x))) (define-setf-expander lastguy (x &environment env) "Set the last element in a list to the given value." (multiple-value-bind (dummies vals newval setter getter) (get-setf-expansion x env) (let ((store (gensym))) (values dummies vals `(,store) `(progn (rplaca (last ,getter) ,store) ,store) `(lastguy ,getter))))) (defun use-lastguy () (let ((a `(1 2 3 4))) (setf (lastguy a) 42) a)) }}} -- Ticket URL: <http://abcl.org/trac/ticket/368#comment:2> armedbear <http://abcl.org> armedbear

#368: File level define-setf-expander is not available for expansion unless wrapped in an eval-when -----------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.4.0 Component: java | Version: 1.4.0-dev Resolution: | Keywords: -----------------------+----------------------- Comment (by mevenson): Replying to [comment:3 mevenson]: Triaged back to failure in abcl-1.1.1, so this is not the result of recent damage. -- Ticket URL: <http://abcl.org/trac/ticket/368#comment:4> armedbear <http://abcl.org> armedbear

#368: File level define-setf-expander is not available for expansion unless wrapped in an eval-when -----------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.4.0 Component: java | Version: 1.4.0-dev Resolution: | Keywords: -----------------------+----------------------- Comment (by mevenson): In testing your patch, ran into an issue that may or may not have been a result of not doing a complete recompilation. I'll get back to this later today. Unfortunately for CFFI, until we get a release of abcl-1.4.0 or (abcl-1.3.2) with this patch, I wouldn't recommend changing the CFFI patch, as almost no users will have had a chance to update. I don't know where the compromise lies: since we have to appease the CFFI maintainers, and the problems with DEFINE-SETF-MODIFY affect the code shared with other Lisp implementation, I don't expect them to want to "dirty" the code with the necessary hack for the broken ABCL. But on the other hand, if CFFI doesn't use the ugly version of the DEFINE-SETF-MODIFY code, the usage of CFFI will break for all ABCL users not running from abcl-1.4.0-dev sources. This week is busy for me, so I would realistically guess that I could make a release of abcl sometime in the next two weeks. -- Ticket URL: <http://abcl.org/trac/ticket/368#comment:6> armedbear <http://abcl.org> armedbear

#368: File level define-setf-expander is not available for expansion unless wrapped in an eval-when -----------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: closed Priority: major | Milestone: 1.4.0 Component: java | Version: 1.4.0-dev Resolution: fixed | Keywords: -----------------------+----------------------- Changes (by mevenson): * status: new => closed * resolution: => fixed Comment: Committed Cyrus's patch as <http://abcl.org/trac/changeset/14727>. -- Ticket URL: <http://abcl.org/trac/ticket/368#comment:8> armedbear <http://abcl.org> armedbear