; Running external programs - SBCL 1.0.29 User Manual
; http://www.sbcl.org/manual/Running-external-programs.html
(sb-ext:run-program exe-path nil)
(sb-ext:run-program exe-path nil
:wait nil)
; 外部プログラムの実行結果を表示
(defun exe-stream ()
(sb-ext:process-output
(sb-ext:run-program exe-path nil
:output :stream)))
(with-open-stream (s (exe-stream))
(loop for line = (read-line s nil)
while line
do (print line)))