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/combinator.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/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index f9e1409..7ba8ad6 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -171,7 +171,7 @@ apply the elements of REQUIREMENTS in reverse order." ;; subroutine is only to check compatibility (with-preserve-hostattrs (apply #'propattrs psym args))) - :apply (get psym 'unapply) + :apply (get psym 'punapply) :unapply (get psym 'papply) :args args))) |