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

M database.lisp

@@ 1,7 1,7 @@
 (in-package wikisophy.database)
 
 (defparameter *database* "wikisophy.db")
-(clsql-sys:file-enable-sql-reader-syntax)
+(clsql:file-enable-sql-reader-syntax)
 
 ;; let's see if we need this
 ;; (defun make-keyword (string)


@@ 32,7 32,7 @@
 
 (defun get-id-by-title (title)
   "Return the id of TITLE." 
-  (caar (clsql:select [id] :from [adj_list] :where [[= [title] title] [collate nocase]])))
+  (caar (clsql:select [id] :from [adj_list] :where [= [title] title] :collate "nocase")))
 
 (defun get-parent-by-title (title)
   "Return the parent_id of TITLE."