1 files changed, 2 insertions(+), 0 deletions(-)

M database.lisp

@@ 65,3 65,5 @@
 	(cons (caar (clsql:select [title] :from [adj_list] :where [= [title] title]))
 	 (get-path (get-title-by-id parent)))
 	`(,(caar (clsql:select [title] :from [adj_list] :where [= [title] title]))))))
+
+(connect)