Changeset 13478


Ignore:
Timestamp:
08/13/11 05:35:07 (10 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.26.x/abcl/src/org/armedbear/lisp/late-setf.lisp

    r11775 r13478  
    8989
    9090(define-setf-expander apply (functionoid &rest args)
    91   (unless (and (listp functionoid)
    92                (= (length functionoid) 2)
    93                (eq (first functionoid) 'function)
    94                (memq (second functionoid) '(aref bit sbit)))
    95     (error "SETF of APPLY is only defined for #'AREF, #'BIT and #'SBIT."))
    9691  (let ((function (second functionoid))
    9792        (new-var (gensym))
Note: See TracChangeset for help on using the changeset viewer.