diff options
author | Tom Willemsen | 2013-03-23 17:57:35 +0100 |
---|---|---|
committer | Tom Willemsen | 2013-03-23 17:57:35 +0100 |
commit | 50bb0f58ea63c60c7fc4f90290c7dd2d579e651e (patch) | |
tree | 8ea6b955a0be0fb2081ea3055f7070f5dd0b809a /lisp/clark.lisp | |
parent | 2a37c88b344e83e8846da0a77b31918885391983 (diff) | |
download | clark-50bb0f58ea63c60c7fc4f90290c7dd2d579e651e.tar.gz clark-50bb0f58ea63c60c7fc4f90290c7dd2d579e651e.zip |
Simplify get-bookmarks
Diffstat (limited to 'lisp/clark.lisp')
-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." |