Changeset 11343
- Timestamp:
- 10/11/08 18:17:27 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/psetf.lisp
r11297 r11343 37 37 (multiple-value-bind 38 38 (dummies vals newval setter getter) 39 (get-setf-expansion ( car a) env)39 (get-setf-expansion (macroexpand-1 (car a) env) env) 40 40 (declare (ignore getter)) 41 41 (let*-bindings (mapcar #'list dummies vals))
Note: See TracChangeset
for help on using the changeset viewer.