structures found by testing with AllegroCL 7.0b AMD64.
11 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * db-mysql/mysql-api.lisp: Fix int vs. long slots in foreign
+ structures found by testing with AllegroCL 7.0b AMD64.
* sql/objects.lisp: Initial caching support for SELECT
* tests/test-oodml.lisp: Avoid using cache when testing select.
* sql/kmr-mop.lisp: Explicitly check slot order and
(org_table (* :char))
(db (* :char))
(def (* :char))
- (length :unsigned-int)
- (max-length :unsigned-int)
+ (length :unsigned-long)
+ (max-length :unsigned-long)
(flags :unsigned-int)
(decimals :unsigned-int)
(type mysql-field-types))
(in-package #:mysql)
-;;;; Modified by Kevin Rosenberg
-;;;; - probe potential directories to find library
-;;;; - Changed from CMUCL functions to UFFI to
-;;;; -- prevent library from being loaded multiple times
-;;;; -- support Allegro CL and Lispworks
-
(defparameter *clsql-mysql-library-path*
(uffi:find-foreign-library
"mysql"
(uffi:find-foreign-library
'("libz" "zlib")
`(,(make-pathname :directory (pathname-directory *load-truename*))
+ #+64bit "/usr/lib64/"
"/usr/lib/"
"/sw/lib/"
"/usr/local/lib/"
(defparameter *mysql-library-candidate-directories*
`(,(pathname-directory *load-pathname*)
- "/opt/mysql/lib/mysql/" "/usr/local/lib/" "/usr/lib/" "/usr/local/lib/mysql/" "/usr/lib/mysql/" "/mysql/lib/opt/" "/sw/lib/mysql/"))
+ "/opt/mysql/lib/mysql/" "/usr/local/lib/"
+ #+64bit "/usr/lib64/"
+ "/usr/lib/" "/usr/local/lib/mysql/" "/usr/lib/mysql/" "/mysql/lib/opt/" "/sw/lib/mysql/"))
(defvar *mysql-library-candidate-drive-letters* '("C" "D" "E"))
(unless *crypt-library-loaded*
(uffi:load-foreign-library
(uffi:find-foreign-library "libcrypt"
- '("/usr/lib/" "/usr/local/lib/" "/lib/"))
+ '(#+64bit "/usr/lib64/"
+ "/usr/lib/" "/usr/local/lib/" "/lib/"))
:supporting-libraries '("c"))
(setq *crypt-library-loaded* t)))
(in-package :postgresql-socket)
-(uffi:def-function "crypt"
+(uffi:def-function ("crypt" crypt)
((key :cstring)
(salt :cstring))
:returning :cstring)