Changeset 12526
- Timestamp:
- 03/12/10 22:38:32 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r12505 r12526 1079 1079 ;; (let ((variable (make-variable :name name :special-p t))) 1080 1080 ;; (push 1081 (setf (progv- form block)1082 `(progv ,symbols-form ,values-form ,@(p1-body body))1083 (progv-environment-register block) t)1081 (setf (progv-environment-register block) t 1082 (progv-form block) 1083 `(progv ,symbols-form ,values-form ,@(p1-body body))) 1084 1084 block)) 1085 1085
Note: See TracChangeset
for help on using the changeset viewer.