[armedbear-cvs] r13478 - branches/0.26.x/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Aug 12 22:35:07 2011
New Revision: 13478

Log:
Backport r13450: Fix #141 (SETF of APPLY not working with arbitrary function)

Modified:
   branches/0.26.x/abcl/src/org/armedbear/lisp/late-setf.lisp

Modified: branches/0.26.x/abcl/src/org/armedbear/lisp/late-setf.lisp
==============================================================================
--- branches/0.26.x/abcl/src/org/armedbear/lisp/late-setf.lisp	Fri Aug 12 22:34:02 2011	(r13477)
+++ branches/0.26.x/abcl/src/org/armedbear/lisp/late-setf.lisp	Fri Aug 12 22:35:07 2011	(r13478)
@@ -88,11 +88,6 @@
               `(getf ,get ,ptemp ,@(if default `(,def-temp)))))))
 
 (define-setf-expander apply (functionoid &rest args)
-  (unless (and (listp functionoid)
-               (= (length functionoid) 2)
-               (eq (first functionoid) 'function)
-               (memq (second functionoid) '(aref bit sbit)))
-    (error "SETF of APPLY is only defined for #'AREF, #'BIT and #'SBIT."))
   (let ((function (second functionoid))
         (new-var (gensym))
         (vars (make-gensym-list (length args))))