replace usages of NOOP & drop the function

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

1 files changed, 3 insertions, 3 deletions

diff --git a/src/property.lisp b/src/property.lisp
index 885a24d..7467ef6 100644
--- a/src/property.lisp
+++ b/src/property.lisp
@@ -76,7 +76,7 @@
       :lisp :posix))
 
 (defun propdesc (prop &rest args)
-  (apply (get prop 'desc #'noop) args))
+  (apply (get prop 'desc (lambda-ignoring-args)) args))
 
 (defun propappdesc (propapp)
   (when propapp
@@ -86,14 +86,14 @@
   (get prop 'plambda))
 
 (defun propattrs (prop &rest args)
-  (apply (get prop 'hostattrs #'noop) args))
+  (apply (get prop 'hostattrs (lambda-ignoring-args)) args))
 
 (defun propappattrs (propapp)
   (when propapp
     (apply #'propattrs propapp)))
 
 (defun propcheck (prop &rest args)
-  (apply (get prop 'check #'noop) args))
+  (apply (get prop 'check (lambda-ignoring-args)) args))
 
 (defun propappcheck (propapp)
   (if propapp (apply #'propcheck propapp) t))