Changeset 12537
- Timestamp:
- 03/14/10 19:40:13 (12 years ago)
- Location:
- branches/0.19.x/abcl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/0.19.x/abcl/CHANGES
r12519 r12537 2 2 ============ 3 3 svn://common-lisp.net/project/armedbear/svn/trunk/abcl 4 ( Unreleased)4 (14 Mar, 2010) 5 5 6 6 Features … … 38 38 SYS:PATHNAME-JAR-P predicate signals whether a pathname references a 39 39 jar. 40 40 41 41 NB: jar pathnames do *not* currently work as an argument to OPEN. 42 42 43 SYS:UNZIP implemented to unpack ZIP files. 43 SYS:UNZIP implemented to unpack ZIP files. 44 44 45 45 SYS:ZIP now has a three argument version for creating zip files with … … 58 58 Fixes/Optimizations 59 59 ------------------- 60 61 * [svn r12526] Unbinding of PROGV bound variables on local transfer 62 of control (within-java-function jump targets) 60 63 61 64 * [svn r12510] The new ansi-test WITH-STANDARD-IO-SYNTAX.23 passes. -
branches/0.19.x/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r12505 r12537 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.