#quickproject良いと思うんだけど、sbclのバージョンによっては動かない? 最新のSBCLだとどうなんだろう。http://xach.livejournal.com/269028.html #と思ったらバグの様子。
#(defun file-comment-header (stream)
(format stream ";;;; ~A~%~%" (file-namestring stream)))
#みたいになっていた。でもストリームからファイル名が取れるというのもありな気がしますね