Commit f96924db authored by Dave Cooper's avatar Dave Cooper
Browse files

add release-candidate timestamp info to startup

parent 9a7a1ae0
Pipeline #3938 failed with stages
in 7 minutes and 58 seconds
...@@ -96,7 +96,7 @@ respective authors: ...@@ -96,7 +96,7 @@ respective authors:
(format t (format t
" "
Gendl® Free Edition, version ~a Gendl® Free Edition, version ~a~a
Within ~a ~a Within ~a ~a
~a ~a
...@@ -120,6 +120,11 @@ License along with the source code for this program. If not, see: ...@@ -120,6 +120,11 @@ License along with the source code for this program. If not, see:
http://www.gnu.org/licenses/ http://www.gnu.org/licenses/
" "
gendl:*gendl-version* gendl:*gendl-version*
(let ((release-candidate-timestamp
(when (boundp 'cl-user::*ci-data*)
(getf cl-user::*ci-data* :release-candidate?))))
(if release-candidate-timestamp
(format nil " (Release Candidate. Timestamp: ~a)" release-candidate-timestamp) ""))
(lisp-implementation-type) (lisp-implementation-type)
(lisp-implementation-version) (lisp-implementation-version)
(quicklisp-copyright-string) (quicklisp-copyright-string)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment