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)"
(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))))
......
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