ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Declare ignored variables

Browse source 
Keeps style-warning conditions from being raised.
This commit is contained in:
Tom Willemsen 2013-03-21 23:53:35 +01:00
parent aebd53868a
commit 153c26be43
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
clark.lisp
View file

@ -59,6 +59,7 @@ The result contains the url and the name of the bookmark."
(defun help-command (args) (defun help-command (args)
"Show a help message." "Show a help message."
(declare (ignore args))
(format t (concatenate (format t (concatenate
'string 'string
"Usage: clark [<command> [<options> ...]]~%" "Usage: clark [<command> [<options> ...]]~%"
@ -68,6 +69,7 @@ The result contains the url and the name of the bookmark."
"~%")) "~%"))
(map nil (lambda (hlp) (map nil (lambda (hlp)
(destructuring-bind (name short long) hlp (destructuring-bind (name short long) hlp
(declare (ignore long))
(format t " ~7A ~A~%" name short))) *helps*)) (format t " ~7A ~A~%" name short))) *helps*))
(defun insert-bookmark (url name description) (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) (defun version-command (args)
"Display clark's version number." "Display clark's version number."
(declare (ignore args))
(format t "clark version ~A~%" *version*)) (format t "clark version ~A~%" *version*))
(defun clark (args) (defun clark (args)