blob: 55c724488251b77c515b4df7f7d7a4d9cd3545e0 (
plain)
1
2
3
4
5
|
(let* ((version (getf (with-open-file (s "version.sexp") (read s)) :version))
(p (position #\- version)))
(write-string (subseq version 0 p))
(write-string ".r")
(write-string (substitute #\. #\- (subseq version (1+ p)))))
|