blob: 0a9e7b324e1c1bd8c46cc1f40dc8d15fdfaf1dd7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: mysql-objects.lisp
;;;; Purpose: CLSQL Object layer for MySQL
;;;; Created: May 2004
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
(in-package #:clsql-mysql)
(defmethod database-get-type-specifier ((type symbol) args database
(db-type (eql :mysql)))
(declare (ignore args database db-type))
(case type
(wall-time "DATETIME")
(tinyint "TINYINT")
(smallint "SMALLINT")
(mediumint "MEDIUMINT")
(t (call-next-method))))
|