diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-08 08:20:10 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-08 08:20:26 -0700 |
commit | 631abac86eca14eedfa735d5473ad4041c7ec087 (patch) | |
tree | 2372bd7a41cdf56d869f66fa8b0193c43f39f1f7 | |
parent | c69151097a2a8441aef561a71012142290e1d1ba (diff) | |
download | consfigurator-631abac86eca14eedfa735d5473ad4041c7ec087.tar.gz |
define FAILED-CHANGE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 1 | ||||
-rw-r--r-- | src/property.lisp | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp index 8b0d0eb..8ad4c4e 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -91,6 +91,7 @@ #:push-hostattrs #:get-hostname #:require-data + #:failed-change ;; propspec.lisp #:in-consfig diff --git a/src/property.lisp b/src/property.lisp index 5fc5f56..0a16918 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -202,3 +202,11 @@ Called by property :HOSTATTRS subroutines." Called by property subroutines." (get-hostattrs-car :hostname)) + + +;;;; :APPLY subroutines + +(define-condition failed-change (error) + ((text :initarg :text :reader inapplicable-property-text)) + (:report (lambda (condition stream) + (format stream "~A" (inapplicable-property-text condition))))) |