in SETPROP function cell, return :NO-CHANGE where appropriate

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

1 files changed, 6 insertions, 3 deletions

diff --git a/src/property.lisp b/src/property.lisp
index 89bf93c..421df15 100644
--- a/src/property.lisp
+++ b/src/property.lisp
@@ -45,10 +45,13 @@
 	     (setf (fdefinition sym)
 		   (if check
 		       (lambda (&rest args)
-			 (unless (apply check args)
-			   (apply apply args)))
+			 (if (apply check args)
+			     :no-change
+			     (apply apply args)))
 		       apply)))
-      (setf (fdefinition sym) #'noop))
+      (setf (fdefinition sym) (lambda (&rest ignore)
+				(declare (ignore ignore))
+				:no-change)))
   (when unapply
     (setf (get sym 'unapply) unapply))
   (setf (get sym 'property) t)