From 50bb0f58ea63c60c7fc4f90290c7dd2d579e651e Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sat, 23 Mar 2013 17:57:35 +0100 Subject: [PATCH] Simplify get-bookmarks --- lisp/clark.lisp | 10 ++-------- 1 file 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."