Plaster

(defpackage :test (:use :cl) (:export #:test-select)) (in-package :test) (defvar *db* (sqlite:connect #P"test.db")) (defun test-select () (sqlite:execute-to-list *db* "SELECT 1 + 1")) ;;;;;;;; (asdf:defsystem "sqlite-test" :depends-on ("sqlite") :serial t :components ((:file "test")) :build-operation "program-op" :build-pathname "sqlite-test" :entry-point "test:test-select")