From ac4a7c1246464844ba75f62ce72509c283cd6dc1 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 9 Mar 2022 16:10:44 -0700 Subject: replace usages of NOOP & drop the function Signed-off-by: Sean Whitton --- src/util.lisp | 5 ----- 1 file changed, 5 deletions(-) (limited to 'src/util.lisp') 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) -- cgit v1.2.3