This is now a project!

This is my go-to macro for using databases in CL. It is a modification of a macro that I got from another site, which I can’t seem to find at the moment. I came across it not long ago looking for something else, so I know it’s still out there. I’ll update this post when I find it.

(defmodel people ((name :col-type text
                        :accessor people-name
                        :initarg :name
                        :export t))

Evaluating that will

  1. Create the database ‘people’.
  2. Create some functions
Find a record based on a query.
(people-select (:= 'name "Clint"))
Find a record with a uuid
Remove a people record from the database.
Get all of the people records.
(defvar *t* (car (people-get-all)))           
(setf (people-name *t*) "Honk")               
(people-update *t*)

Now the challenge is to put this in a package and make it importable in a sane way.