diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 09:26:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 09:26:51 -0700 |
commit | f2f487abcb06afb9226ef7337754dbe2323a6c09 (patch) | |
tree | f285ad122bd7f7794be86fdffce2badd3c3f6fb1 /src/property.lisp | |
parent | c2f2b29a532869f83128ee16635016a7bf474536 (diff) | |
download | consfigurator-f2f487abcb06afb9226ef7337754dbe2323a6c09.tar.gz |
use PUNAPPLY not just UNAPPLY & export symbol plist entry names
At least for now let's not prefix all the SETPROP symbol plist entry names
with 'p', but at least avoid having to remember which of :APPLY and :UNAPPLY
subroutines are in a slot prefixed with a 'p'.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 6b8dbb1..f5c9680 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -46,7 +46,7 @@ (when apply (setf (get sym 'papply) apply)) (when unapply - (setf (get sym 'unapply) unapply)) + (setf (get sym 'punapply) unapply)) sym) (defun isprop (prop) @@ -110,7 +110,7 @@ (with-some-errors-are-failed-change (let ((check (get prop 'check)) (apply (get prop 'apply)) - (unapply (get prop 'unapply))) + (unapply (get prop 'punapply))) ;; Only fail if there's no :UNAPPLY when there is an :APPLY, because ;; that is the case in which we can't do what was requested. If there ;; is no :APPLY then we can infer that there is nothing on the host to |