diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 12:11:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 16:14:52 -0700 |
commit | 3a13e374169586f53a20a52f3584b342626792db (patch) | |
tree | 388fc3188b2e9785ae462e3472c09a953f6ea14a /src | |
parent | ec0fec647cac2e62056b368f95bf73bda82a5738 (diff) | |
download | consfigurator-3a13e374169586f53a20a52f3584b342626792db.tar.gz |
simplify definition of MISSING-DATA-SOURCE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/data.lisp | 6 | ||||
-rw-r--r-- | src/data/pgp.lisp | 5 |
2 files changed, 3 insertions, 8 deletions
diff --git a/src/data.lisp b/src/data.lisp index 3b9676f..3dfc2da 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -89,11 +89,7 @@ Signals a condition MISSING-DATA-SOURCE when unable to access the data source all new Lisp images started up by Consfigurator, since prerequisite data sources are not expected to be available outside of the root Lisp.")) -(define-condition missing-data-source (error) - ((text :initarg :text :reader missing-data-source-text)) - (:report (lambda (condition stream) - (format stream "Missing data source: ~A" - (missing-data-source-text condition))))) +(define-simple-error missing-data-source) (defvar *data-sources* nil "Known sources of prerequisite data.") diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index a6b9339..05ac255 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -57,9 +57,8 @@ (escape-sh-command (list "gpg" "--decrypt" (unix-namestring location))) :output :string)) (subprocess-error (error) - (error 'missing-data-source - :text (format nil "While attempt to decrypt, gpg exited with ~A" - (uiop:subprocess-error-code error)))))) + (missing-data-source "While attempt to decrypt, gpg exited with ~A" + (uiop:subprocess-error-code error))))) (defun put-store (location data) (run-program (list "gpg" "--encrypt") |