aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTeddy Wing2022-08-25 21:38:58 +0200
committerTeddy Wing2022-08-25 21:38:58 +0200
commit7af71cad28c16c83e8cd902337c90b4dbdf0e205 (patch)
treed7cf49ce79edd97790ae12498df44af516614f30 /src
parent81790e32039344943b5a46273b16a1778393f896 (diff)
parent186ebc945392931844270b71ce73e3c5b1d0189a (diff)
downloadextreload-7af71cad28c16c83e8cd902337c90b4dbdf0e205.tar.bz2
Merge branch 'bundle-lisp-dependencies'
Diffstat (limited to 'src')
-rw-r--r--src/option.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/option.lisp b/src/option.lisp
index 2a4721f..5b01ca8 100644
--- a/src/option.lisp
+++ b/src/option.lisp
@@ -1,6 +1,6 @@
;;;; Command line options.
-;;; Copyright (c) 2021 Teddy Wing
+;;; Copyright (c) 2021–2022 Teddy Wing
;;;
;;; This file is part of Extreload.
;;;
@@ -60,6 +60,8 @@ with code `exit-code`."
`condition` and exits with EX_USAGE."
(exit-with-error condition sysexits:+usage+))
+(defconstant *version* (asdf:component-version (asdf:find-system :extreload)))
+
(defun parse-options ()
"Parse command line options."
(multiple-value-bind (options free-args)
@@ -79,7 +81,7 @@ with code `exit-code`."
(opts:exit sysexits:+usage+))
(when-option (options :version)
- (format t "~a~%" (asdf:component-version (asdf:find-system :extreload)))
+ (format t "~a~%" *version*)
(opts:exit sysexits:+ok+))