From 2f5755be1ecd77d0fac647b609402ae4da99c751 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 23 Feb 2010 10:43:37 -0700
Subject: [PATCH] Add file-size for sbcl

---
 os.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))))
 
-- 
GitLab