blob: 5ced318498d5053caaa5273be9fb3c074c360b87 (
plain)
1
2
3
4
5
6
7
8
|
(let* ((version (getf (with-open-file (s "version.sexp") (read s)) :version))
(p1 (position #\- version))
(p2 (position #\- version :from-end t)))
(write-string (subseq version 0 p1))
(write-string ".r")
(write-string (subseq version (1+ p1) p2))
(write-char #\.)
(write-string (subseq version (1+ p2))))
|