Steel Bank Common Lisp

ii  sbcl   2:1.2.14-1ubuntu1   amd64   Common Lisp compiler and development system

# pacman -S sbcl

$ sbcl
This is SBCL 1.2.14.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at .

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (+ 3 6)

9
*  (quit)
	

$ sbcl
This is SBCL 1.2.14.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at .

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
*  (require :asdf)

("ASDF" "asdf" "UIOP" "uiop")
* (asdf:asdf-version)

"3.1.3"
*

Quicklisp

sbcl --load quicklisp.lisp

(quicklisp-quickstart:install) (ql:quickload "cl-mysql") (cl-mysql:connect :host "localhost" :database "city" :user "scott" :password "tiger") (cl-mysql:query "select * from cities")

ASDF

(require :clsql-mysql)

(clsql:connect '("localhost" "city" "scott" "tiger" 3306) :database-type :mysql)

(clsql:status) (clsql:execute-command "SET NAMES utf8") (clsql:query "select * from cities")

(require :ftp)

(require :s-xml)

(require :clsql)

(require :cffi)

(require :uffi)

---

(require :asdf)
(require :asdf-install)
(pushnew "/usr/share/common-lisp/source/clsql/clsql.asd/" asdf:*central-registry* :test #'equal)
(pushnew "/usr/share/common-lisp/source/clsql-sqlite3/" asdf:*central-registry* :test #'equal)
(pushnew "/usr/share/common-lisp/source/clsql-uffi/" asdf:*central-registry* :test #'equal)
(asdf:load-system :clsql)
(asdf:load-system :clsql-uffi)
(asdf:load-system :clsql-sqlite3)
(require :clsql-sqlite3)

$ sbcl
* (setf unit_pp (make-hash-table))
* (type-of unit_pp)

HASH-TABLE
* (setf (gethash 'name unit_pp) "栃木")
* (setf (gethash 'population unit_pp) 24915)
* (setf (gethash 'date_mod unit_pp)  "1985-3-12")
* (print (gethash 'name unit_pp))
* (print (gethash 'population unit_pp))
* (print (gethash 'date_mod unit_pp))

May/09/2023 AM 08:15