From 977627a8af0e5028e95a679773a0c750987a17b7 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 23 Mar 2013 16:50:18 +0100
Subject: Simplify the exists command

---
 lisp/clark.lisp | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index e85c5c9..3c288c3 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -170,14 +170,9 @@ omitted or any number of tag names."
 
 Check if URL exists in the database. Prints `yes' when found and `no'
 otherwise."
-  (if (execute-single *db* "SELECT rowid FROM bookmark WHERE url = ?"
-                      (car args))
-      (progn
-        (format t "yes~%")
-        0)
-      (progn
-        (format t "no~%")
-        1)))
+  (format t "~:[no~;yes~]~%"
+          (execute-single
+           *db* "SELECT rowid FROM bookmark WHERE url = ?" (car args))))
 
 (defcommand help
     "Show help message."
-- 
cgit v1.2.3-54-g00ecf