sketch

main.lisp

;; CIM 側のスクリプト。ユーザは操作することはできない。ただし、restart APIはある。

(let ((*standard-output* (open (pop files)...)))
    (restart-bind ((next-file (lambda (c)
                                 (setf *standard-output* (open (pop files) ...)))))
       (main)))

run.sh

cl -i .old -- X.lisp file1 file2 file3

X.lisp

;; X.lisp
;; outfile のはじめに現在時間を付け加えるだけのスクリプト


(defparameter now (get-universal-time))
;; <- 一回だけ評価されるようにしたい。すべてのファイルで同じようにしたい。
;; ファイルごとに複数回評価されると、ファイルごとに追加される時間が異なってしまう。

(tagbody
 start
 (handler-bind ((eof-error (lambda (c) (invoke-restart 'next-file)
                                       (go 'start))))
   (print now *standard-output*) ;; <- outfile のはじめに現在時間を付け加える
   (loop
     (write-char *standard-output* (read-char *standard-input*)))))