projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9490: fix for odbc/postgresql bigint strings
[clsql.git]
/
db-sqlite
/
sqlite-loader.lisp
diff --git
a/db-sqlite/sqlite-loader.lisp
b/db-sqlite/sqlite-loader.lisp
index 5b1eef981062e58931cf65fbe2b44159bf2afa30..aa25d5e44d835b34cb5207eb13a0f2bf947acbdf 100644
(file)
--- a/
db-sqlite/sqlite-loader.lisp
+++ b/
db-sqlite/sqlite-loader.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Aurelio Bignoli
;;;; Date Started: Nov 2003
;;;;
;;;; Programmer: Aurelio Bignoli
;;;; Date Started: Nov 2003
;;;;
-;;;; $Id
: sqlite-loader.lisp,v 1.2 2003/12/03 14:07:31 aurelio Exp
$
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2003 by Aurelio Bignoli
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2003 by Aurelio Bignoli
;;;;
@@
-16,7
+16,7
@@
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package :clsql-sqlite)
+(in-package
#
:clsql-sqlite)
(defvar *sqlite-supporting-libraries* '("c")
"Used only by CMU. List of library flags needed to be passed to ld
(defvar *sqlite-supporting-libraries* '("c")
"Used only by CMU. List of library flags needed to be passed to ld
@@
-36,8
+36,9
@@
set to the right path before compiling or loading the system.")
t
#-clisp
(let ((libpath (uffi:find-foreign-library
t
#-clisp
(let ((libpath (uffi:find-foreign-library
- "libsqlite"
- '("/usr/lib/" "/usr/local/lib/")
+ '("libsqlite" "sqlite")
+ '(#+64bit "/usr/lib64/"
+ "/usr/lib/" "/usr/local/lib/" "/bin/")
:drive-letters '("C" "D" "E"))))
(if (uffi:load-foreign-library libpath
:module "sqlite"
:drive-letters '("C" "D" "E"))))
(if (uffi:load-foreign-library libpath
:module "sqlite"
@@
-46,7
+47,7
@@
set to the right path before compiling or loading the system.")
(setq *sqlite-library-loaded* t)
(warn "Can't load SQLite library ~A" libpath))))
(setq *sqlite-library-loaded* t)
(warn "Can't load SQLite library ~A" libpath))))
-(clsql-
base-
sys:database-type-load-foreign :sqlite)
+(clsql-sys:database-type-load-foreign :sqlite)