diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-01 15:02:14 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-01 15:02:14 -0700 |
commit | 90bace9b553d717f9e588714557f45e128b89acc (patch) | |
tree | 475723249e0d85760e5501e6f56cfa52d30ee89e | |
parent | 1643322cd157dc1259ea2ed98612bd3bd0fb9e66 (diff) | |
download | consfigurator-90bace9b553d717f9e588714557f45e128b89acc.tar.gz |
actually define the function
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-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 5fbf3ff..4c42a3f 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -42,12 +42,12 @@ (setf (get sym 'check) check)) (when apply (setf (get sym 'apply) apply) - (let ((f (if check + (setf (fdefinition sym) + (if check (lambda (&rest args) (unless (apply check args) (apply apply args))) apply))) - (eval `(defun ,sym ,args ,f)))) (when unapply (setf (get sym 'unapply) unapply)) (setf (get sym 'property) t) |