Version 1.102 (other changes not in last commit)

[kmrcl.git] / os.lisp

diff --git a/os.lisp b/os.lisp
index 7b7da44e5fa23adac19e668e0010fff7f192dfea..feeefc82b87486f922b4a34c00885cc0a4e177ae 100644 (file)
--- a/os.lisp
+++ b/os.lisp
@@ -7,8 +7,6 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jul 2003
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
@@ -156,7 +154,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))))