Using CLSQL in LispWorks 8 (x64)

A few modifications are needed to use CLSQL in LispWorks 8.0. The core changes needed are in ...\quicklisp\dists\quicklisp\software\clsql-20210228-git\uffi\clsql-uffi.lisp. I changed the returning clauses in each of the following (and the function names for #-windows conditions):

#-windows

(uffi:def-function ("_strtoui64" c-strtoull)

    ((str (* :unsigned-char))

     (endptr (* :unsigned-char))

     (radix :int))

  :returning :uint64)

#-windows

(uffi:def-function ("_strtoi64" c-strtoll)

    ((str (* :unsigned-char))

     (endptr (* :unsigned-char))

     (radix :int))

  :returning :int64)

#+windows

(uffi:def-function ("_strtoui64" c-strtoull)

    ((str (* :unsigned-char))

     (endptr (* :unsigned-char))

     (radix :int))

  :returning :uint64)

#+windows

(uffi:def-function ("_strtoi64" c-strtoll)

    ((str (* :unsigned-char))

     (endptr (* :unsigned-char))

     (radix :int))

  :returning :int64)

LispWorks didn't know what to do with the :unsigned-long-long.

Two other things to try to make sure you are ready to move forward with your databases. If you are using SQLite3 or MySQL, you will need to locate the required dlls (or download them). Use 

(push (pathname "C:/path/to/x64") 

      clsql::*FOREIGN-LIBRARY-SEARCH-PATHS*)

to allow finding the paths to the dlls. Do this for each of the required dlls.

Each type of database can be loaded according to Database Back-ends. For example, SQLite3:

    (asdf:operate 'asdf:load-op 'clsql-sqlite3)

For an asd file that needs SQLite3, this is what I'm currently using after a call to (ql:quickload :clsql) before defsystem:

(let ((sqlite-path (truename "~/common-lisp/sql/x64"))) (unless (member sqlite-path clsql::*FOREIGN-LIBRARY-SEARCH-PATHS*) (push sqlite-path clsql::*FOREIGN-LIBRARY-SEARCH-PATHS*))) (asdf:operate 'asdf:load-op 'clsql-sqlite3)

After attempting to use the create-view-from-class function and finding that it created tables without foreign keys, I decided to use a simple SQL create script. It appears that execute-command only executes the first SQL statement, so it is necessary to split on the semi-colon (;) and then run each statement in sequence. (I am skipping the last "statement" in my results because my script has some gobble-dee-gook at the end.)

(defun create-project-database (db) (let* ((create-script (slurp (truename "~/common-lisp/project/data/create script.sql"))) (scripts (mapcar #'(lambda (u) (concatenate 'string u ";")) (split-any create-script #\;)))) (setf scripts (subseq scripts 0 (1- (length scripts)))) (loop for s in scripts do (execute-command s :database db)) db))