common lisp 利用cffi 操作mysql

利用clisp的管理工具 quicklisp 安装加载 cffi 和 cl-mysql

(ql:quickload :cffi)

(ql:quickload :cl-mysql)

连接

(connect :host"127.0.0.1":user"root":password"")

(query"use test")

这样就可以进行数据库操作了

(defpackage :lisp-mysql
 (:use :cl :cl-mysql :cl-mysql-system))

(in-package :lisp-mysql)

(defun create-person ()
 (query "create table person (
    name varchar(10),
    age int)"))

(defun insert (name age)
 (let((sql (concatenate 'string "insert into person values ('" name "', " age ")")))
  (query sql)))

(defun select ()
 (query "select * from person"))

知道如何使用了吧 就是query + sql语句