diff options
| author | Teddy Wing | 2022-08-25 21:38:58 +0200 | 
|---|---|---|
| committer | Teddy Wing | 2022-08-25 21:38:58 +0200 | 
| commit | 7af71cad28c16c83e8cd902337c90b4dbdf0e205 (patch) | |
| tree | d7cf49ce79edd97790ae12498df44af516614f30 /src | |
| parent | 81790e32039344943b5a46273b16a1778393f896 (diff) | |
| parent | 186ebc945392931844270b71ce73e3c5b1d0189a (diff) | |
| download | extreload-7af71cad28c16c83e8cd902337c90b4dbdf0e205.tar.bz2 | |
Merge branch 'bundle-lisp-dependencies'
Diffstat (limited to 'src')
| -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+)) | 
