From d75ad33ae2bee15a47f53822a3becbf10ed96d88 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 21 Aug 2022 15:42:22 -0700 Subject: PROPAPPLY: error if neither :APPLY nor :HOSTATTRS subroutines Signed-off-by: Sean Whitton --- src/property.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/property.lisp b/src/property.lisp index 8e73928..3aebe75 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -104,7 +104,15 @@ (with-some-errors-are-failed-change (if (aand (get prop 'check) (apply it args)) :no-change - (apply (get prop 'papply (constantly :no-change)) args)))) + (aif (get prop 'papply) + (apply it args) + (if (get prop 'hostattrs) + :no-change + (aborted-change + "~S has neither an :APPLY nor a :HOSTATTRS subroutine. + +(Have you added a new .lisp file but not yet listed it in the relevant .asd?)" + prop)))))) (defun apply-propapp (propapp) (if propapp -- cgit v1.2.3