X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=os.lisp;h=9714f5f3568cf7c5e2fd897d25e126dfacfb4655;hb=94c161e4a288d874d8d763b768312e1004a888ec;hp=7b7da44e5fa23adac19e668e0010fff7f192dfea;hpb=03712fbb06acbb103602bae10f41aeae7fa05127;p=kmrcl.git

diff --git a/os.lisp b/os.lisp
index 7b7da44..9714f5f 100644
--- a/os.lisp
+++ b/os.lisp
@@ -156,7 +156,8 @@ returns (VALUES output-string pid)"
   (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))))