write-eus.l

(defun ros::time->string (tm)
  (format nil "~A~A" (send tm :sec) (send tm :nsec)))

(defun save-csv (destination)
  (with-open-file (f destination :direction :output :if-exists :append)
     (format f "hoge~%")))

(save-csv #p"./hoge.csv")