(error "Directory ~A does not exist [delete-directory-and-files]." dir))))
(defun file-size (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)))
+ (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))))