From 153c26be4388c40b7bb85726f0300b47348ef3fe Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 21 Mar 2013 23:53:35 +0100 Subject: Declare ignored variables Keeps style-warning conditions from being raised. --- clark.lisp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'clark.lisp') diff --git a/clark.lisp b/clark.lisp index 0cae25d..cbb0ec5 100644 --- a/clark.lisp +++ b/clark.lisp @@ -59,6 +59,7 @@ The result contains the url and the name of the bookmark." (defun help-command (args) "Show a help message." + (declare (ignore args)) (format t (concatenate 'string "Usage: clark [ [ ...]]~%" @@ -68,6 +69,7 @@ The result contains the url and the name of the bookmark." "~%")) (map nil (lambda (hlp) (destructuring-bind (name short long) hlp + (declare (ignore long)) (format t " ~7A ~A~%" name short))) *helps*)) (defun insert-bookmark (url name description) @@ -110,6 +112,7 @@ BM should be a list containing the url and name of the bookmark." (defun version-command (args) "Display clark's version number." + (declare (ignore args)) (format t "clark version ~A~%" *version*)) (defun clark (args) -- cgit v1.2.3-54-g00ecf