Changeset 13450

Timestamp:

08/07/11 20:17:59 (10 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/late-setf.lisp (modified) (1 diff)

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

@@ -89 +89 @@
 
 (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))