Changeset 13948

Timestamp:

05/27/12 19:57:44 (9 years ago)

Author:

ehuelsmann

Message:

Fix file handle leak identified by Alex Mizrahi.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -98 +98 @@
     (diag "Nil classfile argument passed to verify-load.")
     (return-from verify-load nil))
-  (when 
-      (= 0 (file-length (open classfile :direction :input)))
-             ;;; TODO hook into a real ABCL compiler condition hierarchy
-    (diag "Internal compiler error detected: Fasl contains ~
+  (with-open-file (cf classfile :direction :input)
+    (when 
+        (= 0 (file-length cf))
+;;; TODO hook into a real ABCL compiler condition hierarchy
+      (diag "Internal compiler error detected: Fasl contains ~
 zero-length jvm classfile corresponding to ~A." classfile)
-    (return-from verify-load nil))
+      (return-from verify-load nil)))
   #+nil
   (when (or force (> *safety* *speed*))