Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
a4d281ff
Commit
a4d281ff
authored
Jun 02, 2021
by
Dave Cooper
Browse files
added more banner info at startup
parent
ee270e61
Pipeline
#3971
passed with stages
in 16 minutes and 20 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/source/start.lisp
View file @
a4d281ff
...
...
@@ -90,13 +90,18 @@ respective authors:
~%~%~{~a~^, ~}.~%"
ql-version
ql-libs
))
""
))
(
defun
development-build?
()
(
let
((
version-int
(
parse-integer
*gendl-version*
:junk-allowed
t
)))
(
and
version-int
(
numberp
version-int
)
(
oddp
version-int
))))
(
defun
startup-banner
()
(
format
t
"
Gendl® Free Edition, version ~a~a
Gendl® Free
Software (AGPL)
Edition, version ~a~a
Within ~a ~a
~a
...
...
@@ -119,12 +124,16 @@ License along with the source code for this program. If not, see:
http://www.gnu.org/licenses/
"
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
)
""
))
*gendl-version*
(
let
((
ci-data
(
when
(
boundp
'cl-user::*ci-data*
)
cl-user::*ci-data*
)))
(
let
((
release-candidate-timestamp
(
getf
ci-data
:release-candidate?
))
(
ci-timestamp
(
getf
ci-data
:timestamp
)))
(
cond
(
release-candidate-timestamp
(
format
nil
" (Release Candidate. Timestamp: ~a)"
release-candidate-timestamp
))
((
and
ci-timestamp
(
development-build?
))
(
format
nil
" (Development Build. Build Timestamp: ~a)"
release-candidate-timestamp
))
(
t
""
))))
(
lisp-implementation-type
)
(
lisp-implementation-version
)
(
quicklisp-copyright-string
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment