diff options
author | Tom Willemsen | 2013-03-21 23:53:35 +0100 |
---|---|---|
committer | Tom Willemsen | 2013-03-21 23:53:35 +0100 |
commit | 153c26be4388c40b7bb85726f0300b47348ef3fe (patch) | |
tree | 69a4bd0d9686d5e82b2566e14370f2a8283b26e9 | |
parent | aebd53868af821e2ca60960249af1e51a29d2c5b (diff) | |
download | clark-153c26be4388c40b7bb85726f0300b47348ef3fe.tar.gz clark-153c26be4388c40b7bb85726f0300b47348ef3fe.zip |
Declare ignored variables
Keeps style-warning conditions from being raised.
-rw-r--r-- | clark.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 [<command> [<options> ...]]~%" @@ -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) |