Changeset 13948


Ignore:
Timestamp:
05/27/12 19:57:44 (9 years ago)
Author:
ehuelsmann
Message:

Fix file handle leak identified by Alex Mizrahi.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13916 r13948  
    9898    (diag "Nil classfile argument passed to verify-load.")
    9999    (return-from verify-load nil))
    100   (when
    101       (= 0 (file-length (open classfile :direction :input)))
    102              ;;; TODO hook into a real ABCL compiler condition hierarchy
    103     (diag "Internal compiler error detected: Fasl contains ~
     100  (with-open-file (cf classfile :direction :input)
     101    (when
     102        (= 0 (file-length cf))
     103;;; TODO hook into a real ABCL compiler condition hierarchy
     104      (diag "Internal compiler error detected: Fasl contains ~
    104105zero-length jvm classfile corresponding to ~A." classfile)
    105     (return-from verify-load nil))
     106      (return-from verify-load nil)))
    106107  #+nil
    107108  (when (or force (> *safety* *speed*))
Note: See TracChangeset for help on using the changeset viewer.