Changeset 13948
- Timestamp:
- 05/27/12 19:57:44 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r13916 r13948 98 98 (diag "Nil classfile argument passed to verify-load.") 99 99 (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 ~ 104 105 zero-length jvm classfile corresponding to ~A." classfile) 105 (return-from verify-load nil))106 (return-from verify-load nil))) 106 107 #+nil 107 108 (when (or force (> *safety* *speed*))
Note: See TracChangeset
for help on using the changeset viewer.