diff options
| -rw-r--r-- | lisp/clark.lisp | 10 |
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." |