diff options
Diffstat (limited to 'src/option.lisp')
| -rw-r--r-- | src/option.lisp | 6 |
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+)) |