cclに依存するけどもうこれでいいんじゃないかなって。
(format t "[[[~%~A~%]]]~%" (with-output-to-string(out) (run-program "cmd" '("/c" "dir" "/b") :output out))) (quit)