quicklisp安装和使用cl dbi失败，出现错误-打开共享对象时出错；libmysqlclient_r.so"；：

我想用CLDBI连接mysql

使用quicklisp在sbcl上安装cl dbi后，尝试连接到mysql，但失败，错误如下：

(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))


T
* (ql:quickload :cl-dbi)
To load "cl-dbi":
  Load 2 ASDF systems:
    alexandria closer-mop
  Install 6 Quicklisp releases:
    cl-annot cl-dbi cl-syntax named-readtables
    split-sequence trivial-types
; Fetching #<URL "http://beta.quicklisp.org/archive/split-sequence/2012-07-03/split-sequence-1.1.tgz">
; 3.78KB
==================================================
3,872 bytes in 0.01 seconds (420.14KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-annot/2015-04-07/cl-annot-20150407-git.tgz">
; 9.80KB
==================================================
10,039 bytes in 0.00 seconds (9803.71KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/trivial-types/2012-04-07/trivial-types-20120407-git.tgz">
; 3.15KB
==================================================
3,228 bytes in 0.00 seconds (0.00KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/named-readtables/2015-03-02/named-readtables-20150302-git.tgz">
; 31.96KB
==================================================
32,732 bytes in 0.37 seconds (86.86KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-syntax/2015-04-07/cl-syntax-20150407-git.tgz">
; 3.03KB
==================================================
3,102 bytes in 0.00 seconds (3029.30KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-dbi/2015-04-07/cl-dbi-20150407-git.tgz">
; 11.13KB
==================================================
11,393 bytes in 0.71 seconds (15.76KB/sec)
; Loading "cl-dbi"
[package trivial-types]...........................
[package editor-hints.named-readtables]...........
[package editor-hints.named-readtables]...........
[package cl-syntax]...............................
[package cl-annot.util]...........................
[package cl-annot.core]...........................
[package cl-annot.expand].........................
[package cl-annot.syntax].........................
[package cl-annot.helper].........................
[package cl-annot]................................
[package cl-annot.std]............................
[package cl-annot.eval-when]......................
[package cl-annot.doc]............................
[package cl-annot.class]..........................
[package cl-annot.slot]...........................
[package split-sequence]..........................
[package closer-mop]..............................
[package closer-common-lisp]......................
[package closer-common-lisp-user].................
[package dbi.error]...............................
[package dbi.driver]..............................
[package dbi].
(:CL-DBI)
* (defvar *connection*
    (dbi:connect :mysql
                 :database-name "dbname"
                 :username "username"
                 :password "pwd"))
To load "dbd-mysql":
  Load 1 ASDF system:
    dbd-mysql
; Loading "dbd-mysql"
To load "cl-mysql":
  Load 1 ASDF system:
    alexandria
  Install 4 Quicklisp releases:
    babel cffi cl-mysql trivial-features
; Fetching #<URL "http://beta.quicklisp.org/archive/trivial-features/2015-01-13/trivial-features-20150113-git.tgz">
; 10.22KB
==================================================
10,465 bytes in 0.00 seconds (10219.73KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/babel/2014-12-17/babel-20141217-git.tgz">
; 243.81KB
==================================================
249,666 bytes in 6.30 seconds (38.73KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cffi/2014-11-06/cffi_0.14.0.tgz">
; 207.73KB
==================================================
212,717 bytes in 9.06 seconds (22.92KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-mysql/2015-03-02/cl-mysql-20150302-git.tgz">
; 24.99KB
==================================================
25,594 bytes in 0.15 seconds (165.52KB/sec)
; Loading "cl-mysql"
[package babel-encodings].........................
[package babel]...................................
..................................................
[package cffi-sys]................................
[package cffi]....................................
..................................................
[package cffi-features]...........................
[package com.hackinghat.cl-mysql-system].....
debugger invoked on a LOAD-FOREIGN-LIBRARY-ERROR in thread
#<THREAD "main thread" RUNNING {B3E2369}>:
  Unable to load foreign library (LIBMYSQLCLIENT).
  Error opening shared object "libmysqlclient_r.so":
  libmysqlclient_r.so: cannot open shared object file: No such file or directory.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY                        ] Try loading the foreign library again.
  1: [USE-VALUE                    ] Use another library instead.
  2: [TRY-RECOMPILING              ] Recompile system and try loading it again
  3: [RETRY                        ] Retry
                                     loading FASL for #<CL-SOURCE-FILE "cl-mysql" "system">.
  4: [ACCEPT                       ] Continue, treating
                                     loading FASL for #<CL-SOURCE-FILE "cl-mysql" "system">
                                     as having been successful.
  5:                                 Retry ASDF operation.
  6: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
                                     configuration.
  7: [ABORT                        ] Give up on "cl-mysql"
  8:                                 Give up on "dbd-mysql"
  9:                                 Exit debugger, returning to top level.

(CFFI::FL-ERROR "Unable to load foreign library (~A).~%  ~A" LIBMYSQLCLIENT "Error opening shared object \"libmysqlclient_r.so\":
  libmysqlclient_r.so: cannot open shared object file: No such file or directory.")

（let（（quicklisp init）（合并路径名“quicklisp/setup.lisp”）
（用户homedir路径名）））
（何时（探测文件quicklisp init）
（加载quicklisp init）））
T
*（ql:quickload:cl-dbi）
要加载“cl dbi”：
加载2个ASDF系统：
亚历山大拉塞尔拖把
安装6个Quicklisp版本：
cl annot cl dbi cl语法命名为readtables
分裂序列平凡类型
; 吸引#
; 3.78KB
==================================================
0.01秒内3872字节（420.14KB/秒）
; 吸引#
; 9.80KB
==================================================
0.00秒10039字节（9803.71KB/秒）
; 吸引#
; 3.15KB
==================================================
0.00秒3228字节（0.00KB/秒）
; 吸引#
; 31.96KB
==================================================
0.37秒32732字节（86.86KB/秒）
; 吸引#
; 3.03KB
==================================================
0.00秒3102字节（3029.30KB/秒）
; 吸引#
; 11.13KB
==================================================
0.71秒11393字节（15.76KB/秒）
; 加载“cl dbi”
[包普通类型]。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包编辑器提示。命名的readtables]。。。。。。。。。。。
[包编辑器提示。命名的readtables]。。。。。。。。。。。
[软件包cl语法]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装类别注释使用]。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释核心]。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释扩展]。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释语法]。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释帮助器]。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释标准]。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装类别注释评估时间]。。。。。。。。。。。。。。。。。。。。。。
[包装类别说明文件]。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装类别注释]。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装cl注释槽]。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包装拆分顺序]。。。。。。。。。。。。。。。。。。。。。。。。。。
[包裹闭合器mop]：。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[封装闭合器通用lisp]。。。。。。。。。。。。。。。。。。。。。。
[封装闭合器通用lisp用户]。。。。。。。。。。。。。。。。。
[包dbi.error]：。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[数据包驱动程序]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[包dbi]。
（：CL-DBI）
*（defvar*连接*
（dbi:connect:mysql）
：数据库名称“dbname”
：用户名“username”
：密码“pwd”））
要加载“dbd mysql”：
加载1 ASDF系统：
dbd-mysql
; 加载“dbd mysql”
要加载“cl mysql”：
加载1 ASDF系统：
亚历山大港
安装4个Quicklisp版本：
babel cffi cl mysql琐碎的功能
; 吸引#
; 10.22KB
==================================================
0.00秒10465字节（10219.73KB/秒）
; 吸引#
; 243.81KB
==================================================
6.30秒内249666字节（38.73KB/秒）
; 吸引#
; 207.73KB
==================================================
9.06秒内212717字节（22.92KB/秒）
; 吸引#
; 24.99KB
==================================================
0.15秒25594字节（165.52KB/秒）
; 正在加载“cl mysql”
[包巴别塔编码]。。。。。。。。。。。。。。。。。。。。。。。。。
[巴别塔包装]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
..................................................
[机组cffi系统]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
[套餐cffi]。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
..................................................
[套餐cffi功能]。。。。。。。。。。。。。。。。。。。。。。。。。。。
[package com.hackinghat.cl mysql系统]。。。。。
在线程中的LOAD-FOREIGN-LIBRARY-ERROR上调用调试器
#:
无法加载外部库（LIBMYSQLCLIENT）。
打开共享对象“libmysqlclient_r.so”时出错：
libmysqlclient_r.so:无法打开共享对象文件：没有此类文件或目录。
键入“帮助”以获取调试器帮助，或键入（SB-EXT:EXIT）以退出SBCL。
重新启动（可通过数字或可能的缩写名称调用）：
0:[重试]再次尝试加载外部库。
1:[USE-VALUE]改用其他库。
2:[尝试重新编译]重新编译系统并再次尝试加载
3:[重试]重试
为#加载FASL。
4:[接受]继续，治疗
装载#
被认为是成功的。
5：重试ASDF操作。
6:[清除配置并重试]重置后重试ASDF操作
配置
7:[中止]放弃“cl mysql”
8：放弃“dbd mysql”
9：退出调试器，返回顶层。
（CFFI:：FL-ERROR“无法加载外部库（~A）。~%A“LIBMYSQLCLIENT”打开共享对象\“LIBMYSQLCLIENT\u r.so\”时出错：
libmysqlclient_r.so:无法打开共享对象文件：没有此类文件或目录。“）

环境信息： 操作系统：Debian8.1 mysql:5.5.43-0+deb8u1 sbcl:sbcl 1.2.4.debian

也无法使用cl mysql clsql

---

任何人都可以提供一些线索吗？

在谷歌之后，下面的建议和问题已经解决

> $ sudo find / -name *libmysqlclient* /usr/share/doc/libmysqlclient18
> /usr/lib/i386-linux-gnu/libmysqlclient.so.18
> /usr/lib/i386-linux-gnu/libmysqlclient.so.18.0.0
> /usr/lib/i386-linux-gnu/libmysqlclient_r.so.18
> /usr/lib/i386-linux-gnu/libmysqlclient_r.so.18.0.0
> /var/cache/apt/archives/libmysqlclient18_5.5.42-1_i386.deb
> /var/cache/apt/archives/libmysqlclient18_5.5.43-0+deb8u1_i386.deb
> /var/lib/dpkg/info/libmysqlclient18:i386.postinst
> /var/lib/dpkg/info/libmysqlclient18:i386.postrm
> /var/lib/dpkg/info/libmysqlclient18:i386.list
> /var/lib/dpkg/info/libmysqlclient18:i386.shlibs
> /var/lib/dpkg/info/libmysqlclient18:i386.md5sums

只需创建libmysqlclient_r.so作为libmysqlclient.so.18的链接

$ sudo ln /usr/lib/i386-linux-gnu/libmysqlclient.so.18 /usr/lib/i386-linux-gnu/libmysqlclient_r.so

然后，执行cl-dbi示例并成功运行

* (ql:quickload :cl-dbi)
To load "cl-dbi":
  Load 1 ASDF system:
    cl-dbi
; Loading "cl-dbi"

(:CL-DBI)
* (defvar *connection*
  (dbi:connect :mysql
               :database-name "db-name"
               :username "dbuser"
               :password "dbpwd"))

To load "dbd-mysql":
  Load 1 ASDF system:
    dbd-mysql
; Loading "dbd-mysql"
...........
*CONNECTION*
* (setf query (dbi:prepare *connection*
             "SHOW VARIABLES LIKE \"%version%\";"))
; in: SETF QUERY
;     (SETF QUERY
;             (DBI.DRIVER:PREPARE *CONNECTION*
;                                 "SHOW VARIABLES LIKE \"%version%\";"))
; ==>
;   (SETQ QUERY
;           (DBI.DRIVER:PREPARE *CONNECTION*
;                               "SHOW VARIABLES LIKE \"%version%\";"))
; 
; caught WARNING:
;   undefined variable: QUERY
; 
; compilation unit finished
;   Undefined variable:
;     QUERY
;   caught 1 WARNING condition

#<DBD.MYSQL:<DBD-MYSQL-QUERY> {C3FF761}>
* (setf result (dbi:execute query))

; in: SETF RESULT
;     (DBI.DRIVER:EXECUTE QUERY)
; 
; caught WARNING:
;   undefined variable: QUERY

;     (SETF RESULT (DBI.DRIVER:EXECUTE QUERY))
; ==>
;   (SETQ RESULT (DBI.DRIVER:EXECUTE QUERY))
; 
; caught WARNING:
;   undefined variable: RESULT
; 
; compilation unit finished
;   Undefined variables:
;     QUERY RESULT
;   caught 2 WARNING conditions

#<DBD.MYSQL:<DBD-MYSQL-QUERY> {C3FF761}>
* (loop for row = (dbi:fetch result)
       while row
       do (format t "~A~%" row))

; in: LOOP FOR
;     (DBI.DRIVER:FETCH RESULT)
; 
; caught WARNING:
;   undefined variable: RESULT
; 
; compilation unit finished
;   Undefined variable:
;     RESULT
;   caught 1 WARNING condition
(Variable_name innodb_version Value 5.5.43)
(Variable_name protocol_version Value 10)
(Variable_name slave_type_conversions Value NIL)
(Variable_name version Value 5.5.43-0+deb8u1)
(Variable_name version_comment Value (Debian))
(Variable_name version_compile_machine Value i686)
(Variable_name version_compile_os Value debian-linux-gnu)
NIL
* 

*（ql:quickload:cl-dbi）
要加载“cl dbi”：
加载1 ASDF系统：
cl dbi
; 加载“cl dbi”
（：CL-DBI）
*（defvar*连接*
（dbi:connect:mysql）
：数据库名称“数据库名称”
：用户名“dbuser”
：密码“dbpwd”））
要加载“dbd mysql”：
加载1 ASDF系统：
dbd-mysql
; 加载“dbd mysql”
...........
*联系*
*（setf查询（dbi:prepare*connection）