diff options
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 6 |
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)) |