Simplify get-bookmarks

1 files changed, 2 insertions, 8 deletions

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index 8c90f3d..a52e10e 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -71,14 +71,8 @@
 (defun get-bookmarks ()
   "Get a list of all bookmarks.
 
-The result contains the url and the name of the bookmark."
-  (let ((statement
-         (prepare-statement *db* "select url, name from bookmark")))
-    (loop
-       while (step-statement statement)
-       collect (list (statement-column-value statement 0)
-                     (statement-column-value statement 1))
-       finally (finalize-statement statement))))
+The result contains the url, name and the description of the bookmark."
+  (execute-to-list *db* "select url, name, description from bookmark"))
 
 (defun get-db-location ()
   "Get the location of the database."