to load the SQLite library succesfully. If this differs at your site,
set to the right path before compiling or loading the system.")
-(defvar *sqlite-library-loaded* #+clisp t
- #-clisp nil
- "T if foreign library was able to be loaded successfully")
+(defvar *sqlite-library-loaded* nil
+ "T if foreign library was able to be loaded successfully")
(defmethod database-type-library-loaded ((database-type (eql :sqlite)))
"T if foreign library was able to be loaded successfully. "
*sqlite-library-loaded*)
(defmethod database-type-load-foreign ((database-type (eql :sqlite)))
- #+clisp
- t
- #-clisp
(let ((libpath (uffi:find-foreign-library
- "libsqlite"
+ '("libsqlite" "sqlite")
'(#+64bit "/usr/lib64/"
- "/usr/lib/" "/usr/local/lib/")
+ "/usr/lib/" "/usr/local/lib/" "/bin/")
:drive-letters '("C" "D" "E"))))
(if (uffi:load-foreign-library libpath
:module "sqlite"