Next: Introduction, Previous: (dir), Up: (dir) [Contents][Index]
This is the mito Reference Manual, version 0.1, generated automatically by Declt version 2.4 "Will Decker" on Wed Jun 20 12:17:19 2018 GMT+0.
| • Introduction: | What mito is all about | |
| • Systems: | The systems documentation | |
| • Modules: | The modules documentation | |
| • Files: | The files documentation | |
| • Packages: | The packages documentation | |
| • Definitions: | The symbols documentation | |
| • Indexes: | Concepts, functions, variables and data types |
Mito is yet another object relational mapper and it aims to be a successor of Integral.
id (serial primary key), created_at and updated_at by default like Ruby's ActiveRecordThis software is still ALPHA quality. The APIs will be likely to change.
Should work fine with MySQL, PostgreSQL and SQLite3 on SBCL/Clozure CL.
(mito:connect-toplevel :mysql :database-name "myapp" :username "fukamachi" :password "c0mon-1isp")
;=> #<DBD.MYSQL:<DBD-MYSQL-CONNECTION> {100691BFF3}>
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(mito:table-definition 'user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128))>)
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
(user :col-type user
:initarg :user
:accessor tweet-user))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::TWEET>
(mito:table-definition 'tweet)
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, status TEXT NOT NULL, user_id BIGINT UNSIGNED NOT NULL, created_at TIMESTAMP, updated_at TIMESTAMP)>)
Mito provides a function connect-toplevel and disconnect-toplevel to establish a connection to RDBMS.
connect-toplevel takes the same arguments as dbi:connect, typically the driver-type, the database name to connect, user name and password.
(mito:connect-toplevel :mysql :database-name "myapp" :username "fukamachi" :password "c0mon-1isp")
connect-toplevel sets *connection* the new connection and returns it.
If you want to use a connection lexically, just bind it:
(let ((mito:*connection* (dbi:connect :sqlite3 :database-name #P"/tmp/myapp.db")))
(unwind-protect (progn ...)
;; Ensure that the connection is closed.
(dbi:disconnect mito:*connection*)))
In Mito, you can define a class which corresponds to a database table by specifying (:metaclass mito:dao-table-class).
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
The above defines a Common Lisp normal class except that it allows additional options.
(defclass {class-name} ()
({column-definition}*)
(:metaclass mito:dao-table-class)
[[class-option]])
column-definition ::= (slot-name [[column-option]])
column-option ::= {:col-type col-type} |
{:primary-key boolean} |
{:inflate inflation-function} |
{:deflate deflation-function} |
{:references {class-name | (class-name slot-name)}} |
{:ghost boolean}
col-type ::= { keyword |
(keyword . args) |
(or keyword :null) |
(or :null keyword) }
class-option ::= {:primary-key symbol*} |
{:unique-keys {symbol | (symbol*)}*} |
{:keys {symbol | (symbol*)}*} |
{:table-name table-name}
{:auto-pk boolean}
{:record-timestamps boolean}
Note the class automatically adds some slots -- a primary key named id if there's no primary keys, created_at and updated_at for recording timestamps. To disable these behaviors, specify :auto-pk nil or :record-timestamps nil to defclass forms.
(mito.class:table-column-slots (find-class 'user))
;=> (#<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::ID>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS COMMON-LISP-USER::NAME>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS COMMON-LISP-USER::EMAIL>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::CREATED-AT>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::UPDATED-AT>)
The class inherits mito:dao-class implicitly.
(find-class 'user)
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(c2mop:class-direct-superclasses *)
;=> (#<STANDARD-CLASS MITO.DAO.TABLE:DAO-CLASS>)
This may be useful when you define methods which can be applied for all table classes.
(mito:table-definition 'user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128), created_at TIMESTAMP, updated_at TIMESTAMP)>)
(sxql:yield *)
;=> "CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128), created_at TIMESTAMP, updated_at TIMESTAMP)"
; NIL
(mapc #'mito:execute-sql (mito:table-definition 'user))
(mito:ensure-table-exists 'user)
(defvar me
(make-instance 'user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com"))
;=> USER
(mito:insert-dao me)
;-> ;; INSERT INTO `user` (`name`, `email`, `created_at`, `updated_at`) VALUES (?, ?, ?, ?) ("Eitaro Fukamachi", "e.arrows@gmail.com", "2016-02-04T19:55:16.365543Z", "2016-02-04T19:55:16.365543Z") [0 rows] | MITO.DAO:INSERT-DAO
;=> #<USER {10053C4453}>
;; Same as above
(mito:create-dao 'user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com")
;; Getting the primary key value
(mito:object-id me)
;=> 1
;; Retrieving from the DB
(mito:find-dao 'user :id 1)
;-> ;; SELECT * FROM `user` WHERE (`id` = ?) LIMIT 1 (1) [1 row] | MITO.DB:RETRIEVE-BY-SQL
;=> #<USER {10077C6073}>
;; Updating
(setf (slot-value me 'name) "nitro_idiot")
;=> "nitro_idiot"
(mito:save-dao me)
;-> ;; UPDATE `user` SET `id` = ?, `name` = ?, `email` = ?, `created_at` = ?, `updated_at` = ? WHERE (`id` = ?) (2, "nitro_idiot", "e.arrows@gmail.com", "2016-02-04T19:56:11.408927Z", "2016-02-04T19:56:19.006020Z", 2) [0 rows] | MITO.DAO:UPDATE-DAO
;; Deleting
(mito:delete-dao me)
;-> ;; DELETE FROM `user` WHERE (`id` = ?) (1) [0 rows] | MITO.DAO:DELETE-DAO
(mito:delete-by-values 'user :id 1)
;-> ;; DELETE FROM `user` WHERE (`id` = ?) (1) [0 rows] | MITO.DAO:DELETE-DAO
To define a relationship, use :references at the slot:
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
;; This slot refers to USER class
(user-id :references (user id)
:initarg :user-id
:accessor tweet-user-id))
(:metaclass mito:dao-table-class))
;; The :col-type of USER-ID column is retrieved from the foreign class.
(table-definition (find-class 'tweet))
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; status TEXT NOT NULL,
; user_id BIGINT NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP
; )>)
You can also specify another foreign class at :col-type for defining a relationship:
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
;; This slot refers to USER class
(user :col-type user
:initarg :user
:accessor tweet-user))
(:metaclass mito:dao-table-class))
(table-definition (find-class 'tweet))
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; status TEXT NOT NULL,
; user_id BIGINT NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP
; )>)
;; You can specify :USER arg, instead of :USER-ID.
(defvar *user* (mito:create-dao 'user :name "Eitaro Fukamachi"))
(mito:create-dao 'tweet :user *user*)
(mito:find-dao 'tweet :user *user*)
The later example allows you to create/retrieve TWEET by a USER object, not a USER-ID.
Mito doesn't add foreign key constraints for refering tables since I'm not sure it's still handful while using with ORMs.
Inflation/Deflation is a function to convert values between Mito and RDBMS.
(defclass user-report ()
((title :col-type (:varchar 100)
:initarg :title
:accessor report-title)
(body :col-type :text
:initarg :body
:initform ""
:accessor report-body)
(reported-at :col-type :timestamp
:initarg :reported-at
:initform (local-time:now)
:accessor report-reported-at
:inflate #'local-time:universal-to-timestamp
:deflate #'local-time:timestamp-to-universal))
(:metaclass mito:dao-table-class))
One of the pains in the neck to use ORMs is "N+1 query" problem.
;; BAD EXAMPLE
(use-package '(:mito :sxql))
(defvar *tweets-contain-japan*
(select-dao 'tweet
(where (:like :status "%Japan%"))))
;; Getting names of tweeted users.
(mapcar (lambda (tweet)
(user-name (tweet-user tweet)))
*tweets-contain-japan*)
This example sends a query to retrieve a user like "SELECT * FROM user WHERE id = ?" for each iterations.
To prevent this performance issue, add includes to the above query which only sends a single WHERE IN query instead of N queries:
;; GOOD EXAMPLE with eager loading
(use-package '(:mito :sxql))
(defvar *tweets-contain-japan*
(select-dao 'tweet
(includes 'user)
(where (:like :status "%Japan%"))))
;-> ;; SELECT * FROM `tweet` WHERE (`status` LIKE ?) ("%Japan%") [3 row] | MITO.DB:RETRIEVE-BY-SQL
;-> ;; SELECT * FROM `user` WHERE (`id` IN (?, ?, ?)) (1, 3, 12) [3 row] | MITO.DB:RETRIEVE-BY-SQL
;=> (#<TWEET {1003513EC3}> #<TWEET {1007BABEF3}> #<TWEET {1007BB9D63}>)
;; No additional SQLs will be executed.
(tweet-user (first *))
;=> #<USER {100361E813}>
(ensure-table-exists 'user)
;-> ;; CREATE TABLE IF NOT EXISTS "user" (
; "id" BIGSERIAL NOT NULL PRIMARY KEY,
; "name" VARCHAR(64) NOT NULL,
; "email" VARCHAR(128),
; "created_at" TIMESTAMP,
; "updated_at" TIMESTAMP
; ) () [0 rows] | MITO.DAO:ENSURE-TABLE-EXISTS
;; No changes
(mito:migration-expressions 'user)
;=> NIL
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (:varchar 128)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class)
(:unique-keys email))
(mito:migration-expressions 'user)
;=> (#<SXQL-STATEMENT: ALTER TABLE user ALTER COLUMN email TYPE character varying(128), ALTER COLUMN email SET NOT NULL>
; #<SXQL-STATEMENT: CREATE UNIQUE INDEX unique_user_email ON user (email)>)
(mito:migrate-table 'user)
;-> ;; ALTER TABLE "user" ALTER COLUMN "email" TYPE character varying(128), ALTER COLUMN "email" SET NOT NULL () [0 rows] | MITO.MIGRATION.TABLE:MIGRATE-TABLE
; ;; CREATE UNIQUE INDEX "unique_user_email" ON "user" ("email") () [0 rows] | MITO.MIGRATION.TABLE:MIGRATE-TABLE
;-> (#<SXQL-STATEMENT: ALTER TABLE user ALTER COLUMN email TYPE character varying(128), ALTER COLUMN email SET NOT NULL>
; #<SXQL-STATEMENT: CREATE UNIQUE INDEX unique_user_email ON user (email)>)
$ ros install mito
$ mito
Usage: mito command [option...]
Commands:
generate-migrations
migrate
Options:
-t, --type DRIVER-TYPE DBI driver type (one of "mysql", "postgres" or "sqlite3")
-d, --database DATABASE-NAME Database name to use
-u, --username USERNAME Username for RDBMS
-p, --password PASSWORD Password for RDBMS
-s, --system SYSTEM ASDF system to load (several -s's allowed)
-D, --directory DIRECTORY Directory path to keep migration SQL files (default: "/Users/nitro_idiot/Programs/lib/mito/db/")
--dry-run List SQL expressions to migrate
A subclass of DAO-CLASS is allowed to be inherited. This may be useful when you need classes which have similar columns:
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (:varchar 128)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class)
(:unique-keys email))
(defclass temporary-user (user)
((registered-at :col-type :timestamp
:initarg :registered-at
:accessor temporary-user-registered-at))
(:metaclass mito:dao-table-class))
(mito:table-definition 'temporary-user)
;=> (#<SXQL-STATEMENT: CREATE TABLE temporary_user (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; name VARCHAR(64) NOT NULL,
; email VARCHAR(128) NOT NULL,
; registered_at TIMESTAMP NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP,
; UNIQUE (email)
; )>)
If you need a 'template' for tables which doesn't related to any database tables, you can use DAO-TABLE-MIXIN:
(defclass has-email ()
((email :col-type (:varchar 128)
:initarg :email
:accessor object-email))
(:metaclass mito:dao-table-mixin)
(:unique-keys email))
;=> #<MITO.DAO.MIXIN:DAO-TABLE-MIXIN COMMON-LISP-USER::HAS-EMAIL>
(defclass user (has-email)
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(mito:table-definition 'user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; name VARCHAR(64) NOT NULL,
; email VARCHAR(128) NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP,
; UNIQUE (email)
; )>)
Since insert-dao, update-dao and delete-dao are defined as generic functions, you can define :before, :after or :around methods to those.
(defmethod mito:insert-dao :before ((object user))
(format t "~&Adding ~S...~%" (user-name object)))
(mito:create-dao 'user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com")
;-> Adding "Eitaro Fukamachi"...
; ;; INSERT INTO "user" ("name", "email", "created_at", "updated_at") VALUES (?, ?, ?, ?) ("Eitaro Fukamachi", "e.arrows@gmail.com", "2016-02-16 21:13:47", "2016-02-16 21:13:47") [0 rows] | MITO.DAO:INSERT-DAO
;=> #<USER {100835FB33}>
$ mkdir -p ~/common-lisp
$ cd ~/common-lisp
$ git clone https://github.com/fukamachi/mito
$ ros -L ~/common-lisp/mito/mito.asd install mito
(ql:quickload :mito)
Copyright (c) 2015 Eitaro Fukamachi (e.arrows@gmail.com)
Licensed under the LLGPL License.
Next: Modules, Previous: Introduction, Up: Top [Contents][Index]
The main system appears first, followed by any subsystem dependency.
| • The mito system: | ||
| • The mito-migration system: | ||
| • The mito-core system: |
Next: The mito-migration system, Previous: Systems, Up: Systems [Contents][Index]
Eitaro Fukamachi
LLGPL
Abstraction layer for DB schema
# Mito
[](https://travis-ci.org/fukamachi/mito)
[](https://coveralls.io/github/fukamachi/mito?branch=master)
[](http://quickdocs.org/mito/)
Mito is yet another object relational mapper and it aims to be a successor of [Integral](https://github.com/fukamachi/integral).
* Supports MySQL, PostgreSQL and SQLite3
* Adds ‘id‘ (serial primary key), ‘created_at‘ and ‘updated_at‘ by default like Ruby’s ActiveRecord
* Migrations
* DB schema versioning
## Warning
This software is still ALPHA quality. The APIs will be likely to change.
Should work fine with MySQL, PostgreSQL and SQLite3 on SBCL/Clozure CL.
## Usage
“‘common-lisp
(mito:connect-toplevel :mysql :database-name "myapp" :username "fukamachi" :password "c0mon-1isp")
;=> #<DBD.MYSQL:<DBD-MYSQL-CONNECTION> {100691BFF3}>
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(mito:table-definition ’user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128))>)
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
(user :col-type user
:initarg :user
:accessor tweet-user))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::TWEET>
(mito:table-definition ’tweet)
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, status TEXT NOT NULL, user_id BIGINT UNSIGNED NOT NULL, created_at TIMESTAMP, updated_at TIMESTAMP)>)
“‘
### Connecting to DB
Mito provides a function ‘connect-toplevel‘ and ‘disconnect-toplevel‘ to establish a connection to RDBMS.
‘connect-toplevel‘ takes the same arguments as ‘dbi:connect‘, typically the driver-type, the database name to connect, user name and password.
“‘common-lisp
(mito:connect-toplevel :mysql :database-name "myapp" :username "fukamachi" :password "c0mon-1isp")
“‘
‘connect-toplevel‘ sets ‘*connection*‘ the new connection and returns it.
If you want to use a connection lexically, just bind it:
“‘common-lisp
(let ((mito:*connection* (dbi:connect :sqlite3 :database-name #P"/tmp/myapp.db")))
(unwind-protect (progn ...)
;; Ensure that the connection is closed.
(dbi:disconnect mito:*connection*)))
“‘
### Class Definitions
In Mito, you can define a class which corresponds to a database table by specifying ‘(:metaclass mito:dao-table-class)‘.
“‘common-lisp
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
“‘
The above defines a Common Lisp normal class except that it allows additional options.
“‘
(defclass {class-name} ()
({column-definition}*)
(:metaclass mito:dao-table-class)
[[class-option]])
column-definition ::= (slot-name [[column-option]])
column-option ::= {:col-type col-type} |
{:primary-key boolean} |
{:inflate inflation-function} |
{:deflate deflation-function} |
{:references {class-name | (class-name slot-name)}} |
{:ghost boolean}
col-type ::= { keyword |
(keyword . args) |
(or keyword :null) |
(or :null keyword) }
class-option ::= {:primary-key symbol*} |
{:unique-keys {symbol | (symbol*)}*} |
{:keys {symbol | (symbol*)}*} |
{:table-name table-name}
{:auto-pk boolean}
{:record-timestamps boolean}
“‘
Note the class automatically adds some slots – a primary key named ‘id‘ if there’s no primary keys, ‘created_at‘ and ‘updated_at‘ for recording timestamps. To disable these behaviors, specify ‘:auto-pk nil‘ or ‘:record-timestamps nil‘ to defclass forms.
“‘common-lisp
(mito.class:table-column-slots (find-class ’user))
;=> (#<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::ID>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS COMMON-LISP-USER::NAME>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS COMMON-LISP-USER::EMAIL>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::CREATED-AT>
; #<MITO.DAO.COLUMN:DAO-TABLE-COLUMN-CLASS MITO.DAO.MIXIN::UPDATED-AT>)
“‘
The class inherits ‘mito:dao-class‘ implicitly.
“‘common-lisp
(find-class ’user)
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(c2mop:class-direct-superclasses *)
;=> (#<STANDARD-CLASS MITO.DAO.TABLE:DAO-CLASS>)
“‘
This may be useful when you define methods which can be applied for all table classes.
### Generating Table Definitions
“‘common-lisp
(mito:table-definition ’user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128), created_at TIMESTAMP, updated_at TIMESTAMP)>)
(sxql:yield *)
;=> "CREATE TABLE user (id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(64) NOT NULL, email VARCHAR(128), created_at TIMESTAMP, updated_at TIMESTAMP)"
; NIL
“‘
### Creating DB tables
“‘common-lisp
(mapc #’mito:execute-sql (mito:table-definition ’user))
(mito:ensure-table-exists ’user)
“‘
### CRUD
“‘common-lisp
(defvar me
(make-instance ’user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com"))
;=> USER
(mito:insert-dao me)
;-> ;; INSERT INTO ‘user‘ (‘name‘, ‘email‘, ‘created_at‘, ‘updated_at‘) VALUES (?, ?, ?, ?) ("Eitaro Fukamachi", "e.arrows@gmail.com", "2016-02-04T19:55:16.365543Z", "2016-02-04T19:55:16.365543Z") [0 rows] | MITO.DAO:INSERT-DAO
;=> #<USER {10053C4453}>
;; Same as above
(mito:create-dao ’user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com")
;; Getting the primary key value
(mito:object-id me)
;=> 1
;; Retrieving from the DB
(mito:find-dao ’user :id 1)
;-> ;; SELECT * FROM ‘user‘ WHERE (‘id‘ = ?) LIMIT 1 (1) [1 row] | MITO.DB:RETRIEVE-BY-SQL
;=> #<USER {10077C6073}>
;; Updating
(setf (slot-value me ’name) "nitro_idiot")
;=> "nitro_idiot"
(mito:save-dao me)
;-> ;; UPDATE ‘user‘ SET ‘id‘ = ?, ‘name‘ = ?, ‘email‘ = ?, ‘created_at‘ = ?, ‘updated_at‘ = ? WHERE (‘id‘ = ?) (2, "nitro_idiot", "e.arrows@gmail.com", "2016-02-04T19:56:11.408927Z", "2016-02-04T19:56:19.006020Z", 2) [0 rows] | MITO.DAO:UPDATE-DAO
;; Deleting
(mito:delete-dao me)
;-> ;; DELETE FROM ‘user‘ WHERE (‘id‘ = ?) (1) [0 rows] | MITO.DAO:DELETE-DAO
(mito:delete-by-values ’user :id 1)
;-> ;; DELETE FROM ‘user‘ WHERE (‘id‘ = ?) (1) [0 rows] | MITO.DAO:DELETE-DAO
“‘
### Relationship
To define a relationship, use ‘:references‘ at the slot:
“‘common-lisp
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (or (:varchar 128) :null)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class))
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
;; This slot refers to USER class
(user-id :references (user id)
:initarg :user-id
:accessor tweet-user-id))
(:metaclass mito:dao-table-class))
;; The :col-type of USER-ID column is retrieved from the foreign class.
(table-definition (find-class ’tweet))
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; status TEXT NOT NULL,
; user_id BIGINT NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP
; )>)
“‘
You can also specify another foreign class at ‘:col-type‘ for defining a relationship:
“‘common-lisp
(defclass tweet ()
((status :col-type :text
:initarg :status
:accessor tweet-status)
;; This slot refers to USER class
(user :col-type user
:initarg :user
:accessor tweet-user))
(:metaclass mito:dao-table-class))
(table-definition (find-class ’tweet))
;=> (#<SXQL-STATEMENT: CREATE TABLE tweet (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; status TEXT NOT NULL,
; user_id BIGINT NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP
; )>)
;; You can specify :USER arg, instead of :USER-ID.
(defvar *user* (mito:create-dao ’user :name "Eitaro Fukamachi"))
(mito:create-dao ’tweet :user *user*)
(mito:find-dao ’tweet :user *user*)
“‘
The later example allows you to create/retrieve ‘TWEET‘ by a ‘USER‘ object, not a ‘USER-ID‘.
Mito doesn’t add foreign key constraints for refering tables since I’m not sure it’s still handful while using with ORMs.
### Inflation/Deflation
Inflation/Deflation is a function to convert values between Mito and RDBMS.
“‘common-lisp
(defclass user-report ()
((title :col-type (:varchar 100)
:initarg :title
:accessor report-title)
(body :col-type :text
:initarg :body
:initform ""
:accessor report-body)
(reported-at :col-type :timestamp
:initarg :reported-at
:initform (local-time:now)
:accessor report-reported-at
:inflate #’local-time:universal-to-timestamp
:deflate #’local-time:timestamp-to-universal))
(:metaclass mito:dao-table-class))
“‘
### Eager loading
One of the pains in the neck to use ORMs is "N+1 query" problem.
“‘common-lisp
;; BAD EXAMPLE
(use-package ’(:mito :sxql))
(defvar *tweets-contain-japan*
(select-dao ’tweet
(where (:like :status "%Japan%"))))
;; Getting names of tweeted users.
(mapcar (lambda (tweet)
(user-name (tweet-user tweet)))
*tweets-contain-japan*)
“‘
This example sends a query to retrieve a user like "SELECT * FROM user WHERE id = ?" for each iterations.
To prevent this performance issue, add ‘includes‘ to the above query which only sends a single WHERE IN query instead of N queries:
“‘common-lisp
;; GOOD EXAMPLE with eager loading
(use-package ’(:mito :sxql))
(defvar *tweets-contain-japan*
(select-dao ’tweet
(includes ’user)
(where (:like :status "%Japan%"))))
;-> ;; SELECT * FROM ‘tweet‘ WHERE (‘status‘ LIKE ?) ("%Japan%") [3 row] | MITO.DB:RETRIEVE-BY-SQL
;-> ;; SELECT * FROM ‘user‘ WHERE (‘id‘ IN (?, ?, ?)) (1, 3, 12) [3 row] | MITO.DB:RETRIEVE-BY-SQL
;=> (#<TWEET {1003513EC3}> #<TWEET {1007BABEF3}> #<TWEET {1007BB9D63}>)
;; No additional SQLs will be executed.
(tweet-user (first *))
;=> #<USER {100361E813}>
“‘
### Migrations
“‘common-lisp
(ensure-table-exists ’user)
;-> ;; CREATE TABLE IF NOT EXISTS "user" (
; "id" BIGSERIAL NOT NULL PRIMARY KEY,
; "name" VARCHAR(64) NOT NULL,
; "email" VARCHAR(128),
; "created_at" TIMESTAMP,
; "updated_at" TIMESTAMP
; ) () [0 rows] | MITO.DAO:ENSURE-TABLE-EXISTS
;; No changes
(mito:migration-expressions ’user)
;=> NIL
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (:varchar 128)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class)
(:unique-keys email))
(mito:migration-expressions ’user)
;=> (#<SXQL-STATEMENT: ALTER TABLE user ALTER COLUMN email TYPE character varying(128), ALTER COLUMN email SET NOT NULL>
; #<SXQL-STATEMENT: CREATE UNIQUE INDEX unique_user_email ON user (email)>)
(mito:migrate-table ’user)
;-> ;; ALTER TABLE "user" ALTER COLUMN "email" TYPE character varying(128), ALTER COLUMN "email" SET NOT NULL () [0 rows] | MITO.MIGRATION.TABLE:MIGRATE-TABLE
; ;; CREATE UNIQUE INDEX "unique_user_email" ON "user" ("email") () [0 rows] | MITO.MIGRATION.TABLE:MIGRATE-TABLE
;-> (#<SXQL-STATEMENT: ALTER TABLE user ALTER COLUMN email TYPE character varying(128), ALTER COLUMN email SET NOT NULL>
; #<SXQL-STATEMENT: CREATE UNIQUE INDEX unique_user_email ON user (email)>)
“‘
### Schema versioning
“‘
$ ros install mito
$ mito
Usage: mito command [option...]
Commands:
generate-migrations
migrate
Options:
-t, –type DRIVER-TYPE DBI driver type (one of "mysql", "postgres" or "sqlite3")
-d, –database DATABASE-NAME Database name to use
-u, –username USERNAME Username for RDBMS
-p, –password PASSWORD Password for RDBMS
-s, –system SYSTEM ASDF system to load (several -s’s allowed)
-D, –directory DIRECTORY Directory path to keep migration SQL files (default: "/Users/nitro_idiot/Programs/lib/mito/db/")
–dry-run List SQL expressions to migrate
“‘
### Inheritance and Mixin
A subclass of DAO-CLASS is allowed to be inherited. This may be useful when you need classes which have similar columns:
“‘common-lisp
(defclass user ()
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name)
(email :col-type (:varchar 128)
:initarg :email
:accessor user-email))
(:metaclass mito:dao-table-class)
(:unique-keys email))
(defclass temporary-user (user)
((registered-at :col-type :timestamp
:initarg :registered-at
:accessor temporary-user-registered-at))
(:metaclass mito:dao-table-class))
(mito:table-definition ’temporary-user)
;=> (#<SXQL-STATEMENT: CREATE TABLE temporary_user (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; name VARCHAR(64) NOT NULL,
; email VARCHAR(128) NOT NULL,
; registered_at TIMESTAMP NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP,
; UNIQUE (email)
; )>)
“‘
If you need a ’template’ for tables which doesn’t related to any database tables, you can use ‘DAO-TABLE-MIXIN‘:
“‘common-lisp
(defclass has-email ()
((email :col-type (:varchar 128)
:initarg :email
:accessor object-email))
(:metaclass mito:dao-table-mixin)
(:unique-keys email))
;=> #<MITO.DAO.MIXIN:DAO-TABLE-MIXIN COMMON-LISP-USER::HAS-EMAIL>
(defclass user (has-email)
((name :col-type (:varchar 64)
:initarg :name
:accessor user-name))
(:metaclass mito:dao-table-class))
;=> #<MITO.DAO.TABLE:DAO-TABLE-CLASS COMMON-LISP-USER::USER>
(mito:table-definition ’user)
;=> (#<SXQL-STATEMENT: CREATE TABLE user (
; id BIGSERIAL NOT NULL PRIMARY KEY,
; name VARCHAR(64) NOT NULL,
; email VARCHAR(128) NOT NULL,
; created_at TIMESTAMP,
; updated_at TIMESTAMP,
; UNIQUE (email)
; )>)
“‘
* [mito-attachment](https://github.com/fukamachi/mito-attachment)
* [mito-auth](https://github.com/fukamachi/mito-auth)
### Triggers
Since ‘insert-dao‘, ‘update-dao‘ and ‘delete-dao‘ are defined as generic functions, you can define ‘:before‘, ‘:after‘ or ‘:around‘ methods to those.
“‘common-lisp
(defmethod mito:insert-dao :before ((object user))
(format t "~&Adding ~S...~%" (user-name object)))
(mito:create-dao ’user :name "Eitaro Fukamachi" :email "e.arrows@gmail.com")
;-> Adding "Eitaro Fukamachi"...
; ;; INSERT INTO "user" ("name", "email", "created_at", "updated_at") VALUES (?, ?, ?, ?) ("Eitaro Fukamachi", "e.arrows@gmail.com", "2016-02-16 21:13:47", "2016-02-16 21:13:47") [0 rows] | MITO.DAO:INSERT-DAO
;=> #<USER {100835FB33}>
“‘
## Installation
“‘
$ mkdir -p ~/common-lisp
$ cd ~/common-lisp
$ git clone https://github.com/fukamachi/mito
$ ros -L ~/common-lisp/mito/mito.asd install mito
“‘
“‘common-lisp
(ql:quickload :mito)
“‘
## See Also
* [CL-DBI](https://github.com/fukamachi/cl-dbi)
* [SxQL](https://github.com/fukamachi/sxql)
## Author
* Eitaro Fukamachi (e.arrows@gmail.com)
## Copyright
Copyright (c) 2015 Eitaro Fukamachi (e.arrows@gmail.com)
## License
Licensed under the LLGPL License.
0.1
mito.asd (file)
src/mito.lisp (file)
Next: The mito-core system, Previous: The mito system, Up: Systems [Contents][Index]
Eitaro Fukamachi
LLGPL
0.1
mito-migration.asd (file)
Previous: The mito-migration system, Up: Systems [Contents][Index]
Eitaro Fukamachi
LLGPL
0.1
mito-core.asd (file)
Modules are listed depth-first from the system components tree.
Next: The mito-core/core-components module, Previous: Modules, Up: Modules [Contents][Index]
mito-migration (system)
src/migration/
Next: The mito-core/core-components/dao-components module, Previous: The mito-migration/migration-components module, Up: Modules [Contents][Index]
mito-core (system)
src/core/
Next: The mito-core/core-components/class-components module, Previous: The mito-core/core-components module, Up: Modules [Contents][Index]
core-components (module)
src/core/dao/
Next: The mito-core/core-components/db-drivers module, Previous: The mito-core/core-components/dao-components module, Up: Modules [Contents][Index]
core-components (module)
src/core/class/
Previous: The mito-core/core-components/class-components module, Up: Modules [Contents][Index]
core-components (module)
src/core/db/
Files are sorted by type and then listed depth-first from the systems components trees.
| • Lisp files: |
Next: The mito-migration<dot>asd file, Previous: Lisp files, Up: Lisp files [Contents][Index]
Next: The mito-core<dot>asd file, Previous: The mito<dot>asd file, Up: Lisp files [Contents][Index]
mito-migration.asd
mito-migration (system)
Next: The mito/src/mito<dot>lisp file, Previous: The mito-migration<dot>asd file, Up: Lisp files [Contents][Index]
mito-core.asd
mito-core (system)
Next: The mito-migration/src/migration<dot>lisp file, Previous: The mito-core<dot>asd file, Up: Lisp files [Contents][Index]
Next: The mito-migration/migration-components/table<dot>lisp file, Previous: The mito/src/mito<dot>lisp file, Up: Lisp files [Contents][Index]
migration-components (module)
mito-migration (system)
src/migration.lisp
Next: The mito-migration/migration-components/versions<dot>lisp file, Previous: The mito-migration/src/migration<dot>lisp file, Up: Lisp files [Contents][Index]
sxql.lisp (file)
migration-components (module)
src/migration/table.lisp
Next: The mito-migration/migration-components/sxql<dot>lisp file, Previous: The mito-migration/migration-components/table<dot>lisp file, Up: Lisp files [Contents][Index]
migration-components (module)
src/migration/versions.lisp
Next: The mito-migration/migration-components/sql-parse<dot>lisp file, Previous: The mito-migration/migration-components/versions<dot>lisp file, Up: Lisp files [Contents][Index]
migration-components (module)
src/migration/sxql.lisp
Next: The mito-core/src/core<dot>lisp file, Previous: The mito-migration/migration-components/sxql<dot>lisp file, Up: Lisp files [Contents][Index]
migration-components (module)
src/migration/sql-parse.lisp
parse-statements (function)
Next: The mito-core/core-components/dao<dot>lisp file, Previous: The mito-migration/migration-components/sql-parse<dot>lisp file, Up: Lisp files [Contents][Index]
core-components (module)
mito-core (system)
src/core.lisp
Next: The mito-core/core-components/dao-components/table<dot>lisp file, Previous: The mito-core/src/core<dot>lisp file, Up: Lisp files [Contents][Index]
dao-components (module)
core-components (module)
src/core/dao.lisp
Next: The mito-core/core-components/dao-components/view<dot>lisp file, Previous: The mito-core/core-components/dao<dot>lisp file, Up: Lisp files [Contents][Index]
dao-components (module)
src/core/dao/table.lisp
Next: The mito-core/core-components/dao-components/mixin<dot>lisp file, Previous: The mito-core/core-components/dao-components/table<dot>lisp file, Up: Lisp files [Contents][Index]
column.lisp (file)
dao-components (module)
src/core/dao/view.lisp
Next: The mito-core/core-components/dao-components/column<dot>lisp file, Previous: The mito-core/core-components/dao-components/view<dot>lisp file, Up: Lisp files [Contents][Index]
column.lisp (file)
dao-components (module)
src/core/dao/mixin.lisp
Next: The mito-core/core-components/class<dot>lisp file, Previous: The mito-core/core-components/dao-components/mixin<dot>lisp file, Up: Lisp files [Contents][Index]
dao-components (module)
src/core/dao/column.lisp
Next: The mito-core/core-components/class-components/table<dot>lisp file, Previous: The mito-core/core-components/dao-components/column<dot>lisp file, Up: Lisp files [Contents][Index]
class-components (module)
core-components (module)
src/core/class.lisp
Next: The mito-core/core-components/class-components/column<dot>lisp file, Previous: The mito-core/core-components/class<dot>lisp file, Up: Lisp files [Contents][Index]
column.lisp (file)
class-components (module)
src/core/class/table.lisp
Next: The mito-core/core-components/connection<dot>lisp file, Previous: The mito-core/core-components/class-components/table<dot>lisp file, Up: Lisp files [Contents][Index]
class-components (module)
src/core/class/column.lisp
Next: The mito-core/core-components/type<dot>lisp file, Previous: The mito-core/core-components/class-components/column<dot>lisp file, Up: Lisp files [Contents][Index]
error.lisp (file)
core-components (module)
src/core/connection.lisp
Next: The mito-core/core-components/db<dot>lisp file, Previous: The mito-core/core-components/connection<dot>lisp file, Up: Lisp files [Contents][Index]
db.lisp (file)
core-components (module)
src/core/type.lisp
Next: The mito-core/core-components/db-drivers/mysql<dot>lisp file, Previous: The mito-core/core-components/type<dot>lisp file, Up: Lisp files [Contents][Index]
core-components (module)
src/core/db.lisp
Next: The mito-core/core-components/db-drivers/postgres<dot>lisp file, Previous: The mito-core/core-components/db<dot>lisp file, Up: Lisp files [Contents][Index]
db-drivers (module)
src/core/db/mysql.lisp
Next: The mito-core/core-components/db-drivers/sqlite3<dot>lisp file, Previous: The mito-core/core-components/db-drivers/mysql<dot>lisp file, Up: Lisp files [Contents][Index]
db-drivers (module)
src/core/db/postgres.lisp
get-serial-keys (function)
Next: The mito-core/core-components/logger<dot>lisp file, Previous: The mito-core/core-components/db-drivers/postgres<dot>lisp file, Up: Lisp files [Contents][Index]
db-drivers (module)
src/core/db/sqlite3.lisp
Next: The mito-core/core-components/error<dot>lisp file, Previous: The mito-core/core-components/db-drivers/sqlite3<dot>lisp file, Up: Lisp files [Contents][Index]
core-components (module)
src/core/logger.lisp
get-prev-stack (function)
Next: The mito-core/core-components/util<dot>lisp file, Previous: The mito-core/core-components/logger<dot>lisp file, Up: Lisp files [Contents][Index]
core-components (module)
src/core/error.lisp
Previous: The mito-core/core-components/error<dot>lisp file, Up: Lisp files [Contents][Index]
core-components (module)
src/core/util.lisp
Next: Definitions, Previous: Files, Up: Top [Contents][Index]
Packages are listed by definition order.
Next: The mito package, Previous: Packages, Up: Packages [Contents][Index]
mito.asd
Next: The mito-migration-asd package, Previous: The mito-asd package, Up: Packages [Contents][Index]
src/mito.lisp (file)
common-lisp
Next: The mito<dot>migration package, Previous: The mito package, Up: Packages [Contents][Index]
mito-migration.asd
Next: The mito<dot>migration<dot>table package, Previous: The mito-migration-asd package, Up: Packages [Contents][Index]
src/migration.lisp (file)
common-lisp
Next: The mito<dot>migration<dot>versions package, Previous: The mito<dot>migration package, Up: Packages [Contents][Index]
table.lisp (file)
Next: The mito<dot>migration<dot>sxql package, Previous: The mito<dot>migration<dot>table package, Up: Packages [Contents][Index]
versions.lisp (file)
Next: The mito<dot>migration<dot>sql-parse package, Previous: The mito<dot>migration<dot>versions package, Up: Packages [Contents][Index]
Extansions of SxQL for Mito.Migration
sxql.lisp (file)
common-lisp
Next: The mito<dot>core package, Previous: The mito<dot>migration<dot>sxql package, Up: Packages [Contents][Index]
sql-parse.lisp (file)
parse-statements (function)
Next: The mito<dot>dao package, Previous: The mito<dot>migration<dot>sql-parse package, Up: Packages [Contents][Index]
src/core.lisp (file)
common-lisp
Next: The mito<dot>dao<dot>table package, Previous: The mito<dot>core package, Up: Packages [Contents][Index]
dao.lisp (file)
Next: The mito<dot>dao<dot>view package, Previous: The mito<dot>dao package, Up: Packages [Contents][Index]
table.lisp (file)
Next: The mito<dot>dao<dot>mixin package, Previous: The mito<dot>dao<dot>table package, Up: Packages [Contents][Index]
view.lisp (file)
common-lisp
Next: The mito<dot>dao<dot>column package, Previous: The mito<dot>dao<dot>view package, Up: Packages [Contents][Index]
mixin.lisp (file)
common-lisp
Next: The mito<dot>class package, Previous: The mito<dot>dao<dot>mixin package, Up: Packages [Contents][Index]
column.lisp (file)
Next: The mito<dot>class<dot>table package, Previous: The mito<dot>dao<dot>column package, Up: Packages [Contents][Index]
class.lisp (file)
Next: The mito<dot>class<dot>column package, Previous: The mito<dot>class package, Up: Packages [Contents][Index]
table.lisp (file)
Next: The mito<dot>connection package, Previous: The mito<dot>class<dot>table package, Up: Packages [Contents][Index]
column.lisp (file)
Next: The mito<dot>type package, Previous: The mito<dot>class<dot>column package, Up: Packages [Contents][Index]
connection.lisp (file)
Next: The mito<dot>db package, Previous: The mito<dot>connection package, Up: Packages [Contents][Index]
type.lisp (file)
common-lisp
Next: The mito<dot>db<dot>mysql package, Previous: The mito<dot>type package, Up: Packages [Contents][Index]
db.lisp (file)
common-lisp
Next: The mito<dot>db<dot>postgres package, Previous: The mito<dot>db package, Up: Packages [Contents][Index]
mysql.lisp (file)
Next: The mito<dot>db<dot>sqlite3 package, Previous: The mito<dot>db<dot>mysql package, Up: Packages [Contents][Index]
postgres.lisp (file)
get-serial-keys (function)
Next: The mito<dot>logger package, Previous: The mito<dot>db<dot>postgres package, Up: Packages [Contents][Index]
sqlite3.lisp (file)
Next: The mito<dot>error package, Previous: The mito<dot>db<dot>sqlite3 package, Up: Packages [Contents][Index]
logger.lisp (file)
common-lisp
get-prev-stack (function)
Next: The mito<dot>util package, Previous: The mito<dot>logger package, Up: Packages [Contents][Index]
error.lisp (file)
common-lisp
Previous: The mito<dot>error package, Up: Packages [Contents][Index]
util.lisp (file)
common-lisp
Definitions are sorted by export status, category, package, and then by lexicographic order.
| • Exported definitions: | ||
| • Internal definitions: |
Next: Internal definitions, Previous: Definitions, Up: Definitions [Contents][Index]
| • Exported special variables: | ||
| • Exported macros: | ||
| • Exported functions: | ||
| • Exported generic functions: | ||
| • Exported conditions: | ||
| • Exported classes: |
Next: Exported macros, Previous: Exported definitions, Up: Exported definitions [Contents][Index]
table.lisp (file)
connection.lisp (file)
logger.lisp (file)
Next: Exported functions, Previous: Exported special variables, Up: Exported definitions [Contents][Index]
connection.lisp (file)
logger.lisp (file)
Next: Exported generic functions, Previous: Exported macros, Up: Exported definitions [Contents][Index]
versions.lisp (file)
connection.lisp (file)
mysql.lisp (file)
postgres.lisp (file)
sqlite3.lisp (file)
connection.lisp (file)
connection.lisp (file)
connection.lisp (file)
versions.lisp (file)
table.lisp (file)
connection.lisp (file)
connection.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
versions.lisp (file)
mysql.lisp (file)
postgres.lisp (file)
sqlite3.lisp (file)
Compute differences two lists.
Note this can be applied for a list of string-designators.
table.lisp (file)
versions.lisp (file)
table.lisp (file)
mixin.lisp (file)
object-id (generic function)
sql-parse.lisp (file)
table.lisp (file)
table.lisp (file)
mysql.lisp (file)
postgres.lisp (file)
sqlite3.lisp (file)
mysql.lisp (file)
postgres.lisp (file)
logger.lisp (file)
versions.lisp (file)
Next: Exported conditions, Previous: Exported functions, Up: Exported definitions [Contents][Index]
class.lisp (file)
automatically generated reader method
table.lisp (file)
automatically generated writer method
table.lisp (file)
column.lisp (file)
column.lisp (file)
automatically generated reader method
view.lisp (file)
table.lisp (file)
column.lisp (file)
Option to specify slots as ghost slots. Ghost slots do not depend on a database.
column.lisp (file)
column.lisp (file)
table.lisp (file)
automatically generated reader method
mixin.lisp (file)
automatically generated writer method
mixin.lisp (file)
mixin.lisp (file)
(setf object-id) (function)
automatically generated reader method
mixin.lisp (file)
automatically generated writer method
mixin.lisp (file)
mixin.lisp (file)
automatically generated reader method
column.lisp (file)
automatically generated writer method
column.lisp (file)
column.lisp (file)
Similar to table-column-info except the return value is for sxql:make-create-table.
column.lisp (file)
column.lisp (file)
column.lisp (file)
automatically generated reader method
column.lisp (file)
column.lisp (file)
class.lisp (file)
column.lisp (file)
view.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
Next: Exported classes, Previous: Exported generic functions, Up: Exported definitions [Contents][Index]
error.lisp (file)
invalid-definition (condition)
:slot
error.lisp (file)
mito-error (condition)
error.lisp (file)
mito-error (condition)
col-type-required (condition)
error.lisp (file)
error (condition)
error.lisp (file)
mito-error (condition)
:table
Previous: Exported conditions, Up: Exported definitions [Contents][Index]
mixin.lisp (file)
standard-object (class)
:id
%object-id (generic function)
(setf %object-id) (generic function)
table.lisp (file)
standard-object (class)
boolean
dao-synced (generic function)
(setf dao-synced) (generic function)
table.lisp (file)
table-class (class)
:auto-pk
(quote (t))
:record-timestamps
(quote (t))
column.lisp (file)
table-column-class (class)
(or function null)
:inflate
(or function null)
:deflate
mixin.lisp (file)
table-class (class)
direct-slot-definition-class (method)
view.lisp (file)
table-class (class)
:as
(error ":as query is required for dao-table-view")
dao-table-view-as-query (generic function)
mixin.lisp (file)
standard-object (class)
:created-at
object-created-at (generic function)
(setf object-created-at) (generic function)
:updated-at
object-updated-at (generic function)
(setf object-updated-at) (generic function)
table.lisp (file)
standard-class (class)
:primary-key
:unique-keys
:keys
:table-name
column.lisp (file)
standard-direct-slot-definition (class)
dao-table-column-class (class)
(or symbol cons null)
:col-type
%table-column-type (generic function)
(setf %table-column-type) (generic function)
mito.class.column::references
:references
table-column-references (generic function)
boolean
:primary-key
primary-key-p (generic function)
(setf primary-key-p) (generic function)
Option to specify slots as ghost slots. Ghost slots do not depend on a database.
boolean
:ghost
ghost-slot-p (generic function)
(setf ghost-slot-p) (generic function)
Previous: Exported definitions, Up: Definitions [Contents][Index]
| • Internal special variables: | ||
| • Internal functions: | ||
| • Internal generic functions: | ||
| • Internal structures: | ||
| • Internal types: |
Next: Internal functions, Previous: Internal definitions, Up: Internal definitions [Contents][Index]
column.lisp (file)
column.lisp (file)
Next: Internal generic functions, Previous: Internal special variables, Up: Internal definitions [Contents][Index]
table.lisp (file)
table.lisp (file)
versions.lisp (file)
table.lisp (file)
sxql.lisp (file)
view.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
view.lisp (file)
view.lisp (file)
view.lisp (file)
view.lisp (file)
view.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
Expand relational columns if the operator is :=, :!= , :in or :not-in.
table.lisp (file)
versions.lisp (file)
logger.lisp (file)
postgres.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
versions.lisp (file)
sxql.lisp (file)
view.lisp (file)
sxql.lisp (file)
table.lisp (file)
sxql.lisp (file)
table.lisp (file)
table.lisp (file)
table.lisp (file)
versions.lisp (file)
column.lisp (file)
table.lisp (file)
versions.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sxql.lisp (file)
sqlite3.lisp (file)
sqlite3.lisp (file)
Next: Internal structures, Previous: Internal functions, Up: Internal definitions [Contents][Index]
automatically generated reader method
mixin.lisp (file)
automatically generated writer method
mixin.lisp (file)
automatically generated reader method
column.lisp (file)
automatically generated writer method
column.lisp (file)
Next: Internal types, Previous: Internal generic functions, Up: Internal definitions [Contents][Index]
sxql.lisp (file)
sql-statement (structure)
yield (method)
string
"create sequence"
create-sequence-name (function)
(setf create-sequence-name) (function)
create-sequence-sequence-name (function)
(setf create-sequence-sequence-name) (function)
view.lisp (file)
sql-statement (structure)
yield (method)
create-view-view-name (function)
(setf create-view-view-name) (function)
create-view-or-replace (function)
(setf create-view-or-replace) (function)
create-view-as (function)
(setf create-view-as) (function)
sxql.lisp (file)
sql-statement (structure)
yield (method)
string
"drop sequence"
drop-sequence-name (function)
(setf drop-sequence-name) (function)
drop-sequence-sequence-name (function)
(setf drop-sequence-sequence-name) (function)
drop-sequence-if-exists (function)
(setf drop-sequence-if-exists) (function)
sxql.lisp (file)
expression-clause (structure)
string
"set default"
set-default-name (function)
(setf set-default-name) (function)
Previous: Internal structures, Up: Internal definitions [Contents][Index]
column.lisp (file)
Previous: Definitions, Up: Top [Contents][Index]
| • Concept index: | ||
| • Function index: | ||
| • Variable index: | ||
| • Data type index: |
Next: Function index, Previous: Indexes, Up: Indexes [Contents][Index]
| Jump to: | F L M |
|---|
| Jump to: | F L M |
|---|
Next: Variable index, Previous: Concept index, Up: Indexes [Contents][Index]
| Jump to: | %
(
A C D E F G I L M O P R S T U W |
|---|
| Jump to: | %
(
A C D E F G I L M O P R S T U W |
|---|
Next: Data type index, Previous: Function index, Up: Indexes [Contents][Index]
| Jump to: | *
A C D G I K N O P R S T U V |
|---|
| Jump to: | *
A C D G I K N O P R S T U V |
|---|
Previous: Variable index, Up: Indexes [Contents][Index]
| Jump to: | A C D I M N P R S T |
|---|
| Jump to: | A C D I M N P R S T |
|---|