diff options
-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))))) |