Changeset 14066
- Timestamp:
- 08/08/12 21:49:40 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
r13045 r14066 493 493 (multiple-value-bind 494 494 (expansion expanded) 495 (expand-macro place) 495 ;; Expand once in case the form expands 496 ;; into something that needs special 497 ;; SETF treatment 498 (macroexpand-1 place) 496 499 (if expanded 497 500 (precompile1 (list* 'SETF expansion … … 512 515 (multiple-value-bind 513 516 (expansion expanded) 514 (expand-macro sym) 517 ;; Expand once in case the form expands 518 ;; into something that needs special 519 ;; SETF treatment 520 (macroexpand-1 sym) 515 521 (if expanded 516 522 (precompile1 (list 'SETF expansion val))
Note: See TracChangeset
for help on using the changeset viewer.