ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Simplify get-bookmarks

Browse source
This commit is contained in:
Tom Willemsen 2013-03-23 17:57:35 +01:00
parent 2a37c88b34
commit 50bb0f58ea
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/clark.lisp
View file

@ -71,14 +71,8 @@
(defun get-bookmarks () (defun get-bookmarks ()
"Get a list of all bookmarks. "Get a list of all bookmarks.
The result contains the url and the name of the bookmark." The result contains the url, name and the description of the bookmark."
(let ((statement (execute-to-list *db* "select url, name, description from bookmark"))
(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))))
(defun get-db-location () (defun get-db-location ()
"Get the location of the database." "Get the location of the database."