always set property function cells, to keep other code simple

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 9 insertions, 8 deletions

diff --git a/src/property.lisp b/src/property.lisp
index 0f922fe..9dca7c8 100644
--- a/src/property.lisp
+++ b/src/property.lisp
@@ -40,14 +40,15 @@
     (setf (get sym 'hostattrs) hostattrs))
   (when check
     (setf (get sym 'check) check))
-  (when apply
-    (setf (get sym 'apply) apply)
-    (setf (fdefinition sym)
-	  (if check
-	      (lambda (&rest args)
-		(unless (apply check args)
-		  (apply apply args)))
-	      apply)))
+  (if apply
+      (progn (setf (get sym 'apply) apply)
+	     (setf (fdefinition sym)
+		   (if check
+		       (lambda (&rest args)
+			 (unless (apply check args)
+			   (apply apply args)))
+		       apply)))
+      (setf (fdefinition sym) #'noop))
   (when unapply
     (setf (get sym 'unapply) unapply))
   (setf (get sym 'property) t)