diff options
| -rw-r--r-- | src/package.lisp | 1 | ||||
| -rw-r--r-- | src/property.lisp | 6 | ||||
| -rw-r--r-- | src/util.lisp | 5 |
3 files changed, 3 insertions, 9 deletions
diff --git a/src/package.lisp b/src/package.lisp index 202477f..0582459 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -105,7 +105,6 @@ #:unlines #:words #:unwords - #:noop #:symbol-named #:memstring= #:define-simple-error 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)) diff --git a/src/util.lisp b/src/util.lisp index f0ca5cb..887ebd1 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -35,11 +35,6 @@ (loop for result in new-results and i upfrom 0 do (nconcf (aref results i) result))))) -(defun noop (&rest args) - "Accept any arguments and do nothing." - (declare (ignore args)) - (values)) - (defun lines (text &optional trimfun (trimchars '(#\Space #\Tab))) (with-input-from-string (stream text) (let (bolp buffer) |