Skip to content

Instantly share code, notes, and snippets.

@furushchev

furushchev/write-eus.l

Created June 19, 2016 09:30
Show Gist options
  • Save furushchev/9454b6982021d7ff1fc862dff9eda04c to your computer and use it in GitHub Desktop.
Save furushchev/9454b6982021d7ff1fc862dff9eda04c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment