[armedbear-cvs] r12194 - in branches/0.16.x/abcl: . src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Wed Oct 14 15:58:24 2009
New Revision: 12194

Log:
Fix leakage of temp files during compilation.


Modified:
   branches/0.16.x/abcl/CHANGES
   branches/0.16.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: branches/0.16.x/abcl/CHANGES
==============================================================================
--- branches/0.16.x/abcl/CHANGES	(original)
+++ branches/0.16.x/abcl/CHANGES	Wed Oct 14 15:58:24 2009
@@ -7,6 +7,7 @@
   * More careful checking for null args in LispStackFrame
   * Honor appearance of &allow-other-keys in CLOS MAKE-INSTANCE
   * Fix #63: GO forms to non-existent TAGBODY labels would exit ABCL
+  * Don't leak temp files during compilation.
 
 Version 0.16.0
 svn://common-lisp.net/project/armedbear/svn/tags/0.16.0/abcl

Modified: branches/0.16.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- branches/0.16.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ branches/0.16.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Wed Oct 14 15:58:24 2009
@@ -8474,8 +8474,8 @@
         (unwind-protect
              (setf compiled-function
                    (load-compiled-function
-                    (compile-defun name expr env tempfile))))
-        (delete-file tempfile)))
+                    (compile-defun name expr env tempfile)))
+        (delete-file tempfile))))
     (when (and name (functionp compiled-function))
       (sys::set-function-definition name compiled-function definition))
     (or name compiled-function)))