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