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

Simplify the exists command

Browse source
This commit is contained in:
Tom Willemsen 2013-03-23 16:50:18 +01:00
parent fdce2ed81c
commit 977627a8af
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/clark.lisp
View file

@ -170,14 +170,9 @@ omitted or any number of tag names."
Check if URL exists in the database. Prints `yes' when found and `no' Check if URL exists in the database. Prints `yes' when found and `no'
otherwise." otherwise."
(if (execute-single *db* "SELECT rowid FROM bookmark WHERE url = ?" (format t "~:[no~;yes~]~%"
(car args)) (execute-single
(progn *db* "SELECT rowid FROM bookmark WHERE url = ?" (car args))))
(format t "yes~%")
0)
(progn
(format t "no~%")
1)))
(defcommand help (defcommand help
"Show help message." "Show help message."