- #+allegro (let ((stat (excl.osi:stat (namestring file))))
- (excl.osi:stat-size stat))
- #-allegro
- (with-open-file (in file :direction :input)
- (file-length in)))
+ (when (probe-file file)
+ #+allegro (let ((stat (excl.osi:stat (namestring file))))
+ (excl.osi:stat-size stat))
+ #-allegro
+ (with-open-file (in file :direction :input)
+ (file-length in))))