[armedbear-cvs] r13450 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Aug  7 13:17:59 2011
New Revision: 13450

Log:
Fix #141 (SETF of APPLY not working with arbitrary function) by
"adding" the feature.

Modified:
   trunk/abcl/src/org/armedbear/lisp/late-setf.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/late-setf.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/late-setf.lisp	Sun Aug  7 07:20:58 2011	(r13449)
+++ trunk/abcl/src/org/armedbear/lisp/late-setf.lisp	Sun Aug  7 13:17:59 2011	(r13450)
@@ -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))))