Check bookmark doesn't exist before inserting

The `add' command checks if the given url has been registered before and
if so will print a message about this.

lisp/clark.lisp

@@ -196,9 +196,11 @@ bookmark."
 
 Add URL with NAME, DESCRIPTION and TAGS to the database. TAGS may be
 omitted or any number of tag names."
+  (if (not (bookmark-exists-p url))
       (with-transaction *db*
         (insert-bookmark url name description)
-    (add-tags (last-insert-rowid *db*) tags)))
+        (add-tags (last-insert-rowid *db*) tags))
+      (format t "~A has already been bookmarked~%" url)))
 
 (defcommand edit (url &rest rest)
     "Edit a bookmark."