diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-08 09:08:57 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-08 09:08:57 -0700 |
| commit | 463654cf07b06cab40d6b4a08ed6a6a456850fbe (patch) | |
| tree | b9388b3a3c1db424e33f2ed8f95797042820602d | |
| parent | ecedad810884088e7704b5ae22ab51f2f3e0b7b3 (diff) | |
| download | consfigurator-463654cf07b06cab40d6b4a08ed6a6a456850fbe.tar.gz | |
PROPUNAPPLY: fix finding the :APPLY subroutine
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index 499e061..332ef2c 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -113,7 +113,7 @@ (defun propunapply (prop &rest args) (with-some-errors-are-failed-change (let ((check (get prop 'check)) - (apply (get prop 'apply)) + (apply (get prop 'papply)) (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 |