projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add remove-alist delete-alist
[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
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jul 2003
;;;;
-;;;; $Id$
-;;;;
;;;; *************************************************************************
(in-package #:kmrcl)
;;;; *************************************************************************
(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))
(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))))
(with-open-file (in file :direction :input)
(file-length in))))