(let ((status
(system:call-system-showing-output
command
- :shell-type "/bin/sh"
+ :prefix ""
+ :show-cmd nil
:output-stream output)))
(values (get-output-stream-string output) nil status))
(close output)))
(system:call-system-showing-output
command
:shell-type "/bin/sh"
- :output-stream output)
+ :show-cmd nil
+ :prefix ""
+ :output-stream nil)
#+clisp ;XXX not exactly *verbose-out*, I know
(ext:run-shell-command command :output :terminal :wait t)
(command-output cmd)))
((eq if-does-not-exist :error)
(error "Directory ~A does not exist [delete-directory-and-files]." dir))))
+
+(defun file-size (file)
+ #+allegro (let ((stat (excl.osi:stat (namestring file))))
+ (excl.osi:stat-size stat))
+ #-allegro
+ (with-open-file (in file :direction :input)
+ (file-length in)))