diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:10:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:11:34 -0700 |
commit | ac4a7c1246464844ba75f62ce72509c283cd6dc1 (patch) | |
tree | dede1456509374c387befaa6762d41fc92b7ccfd | |
parent | 3a037315b8cb60d8c6da94ba6db7123292592fa1 (diff) | |
download | consfigurator-ac4a7c1246464844ba75f62ce72509c283cd6dc1.tar.gz |
replace usages of NOOP & drop the function
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-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) |