common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix release.ros by practice release.

Browse source
This commit is contained in:
SANO,Masatoshi 2026-02-24 07:04:42 +09:00
parent 05c290ce48
commit d0b368951c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/release.ros
View file

@ -30,7 +30,7 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(d (multiple-value-list(decode-universal-time (get-universal-time)))))
(setf (first version) (- (nth 5 d) 2000)
(second version) (nth 4 d)
(fourth version) (1+ (fourth version)))
(first (last version)) (1+ (first (last version))))
(format nil "~{~2,'0d~^.~}" version)))
(defun edit-file (path match replace version &key test)
@ -179,7 +179,7 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(defun main (subcmd &rest argv)
(declare (ignorable argv))
(let ((subcmd (find subcmd '(prepare release release-push changelog release-ci)
(let ((subcmd (find subcmd '(prepare release-commit release-push changelog release-ci)
:test 'equal :key 'string-downcase)))
(when subcmd
(funcall subcmd argv))))