Changeset 13450
- Timestamp:
- 08/07/11 20:17:59 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/late-setf.lisp
r11775 r13450 89 89 90 90 (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."))96 91 (let ((function (second functionoid)) 97 92 (new-var (gensym))
Note: See TracChangeset
for help on using the changeset viewer.