Skip to content
Snippets Groups Projects
Commit 2f5755be authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

Add file-size for sbcl

parent 7397fb75
No related branches found
No related tags found
No related merge requests found
...@@ -156,7 +156,8 @@ returns (VALUES output-string pid)" ...@@ -156,7 +156,8 @@ returns (VALUES output-string pid)"
(when (probe-file file) (when (probe-file file)
#+allegro (let ((stat (excl.osi:stat (namestring file)))) #+allegro (let ((stat (excl.osi:stat (namestring file))))
(excl.osi:stat-size stat)) (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) (with-open-file (in file :direction :input)
(file-length in)))) (file-length in))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment