diff options
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
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))))) |