1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: mysql-objects.lisp
6 ;;;; Purpose: CLSQL Object layer for MySQL
11 ;;;; CLSQL users are granted the rights to distribute and use this software
12 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
13 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
14 ;;;; *************************************************************************
16 (in-package #:clsql-mysql)
18 (defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
19 (db-type (eql :mysql)))
20 (declare (ignore args database))
23 (defmethod database-get-type-specifier ((type (eql 'smallint)) args database
24 (db-type (eql :mysql)))
25 (declare (ignore args database))
28 (defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
29 (db-type (eql :mysql)))
30 (declare (ignore args database))
33 (defmethod database-output-sql-as-type ((type (eql 'boolean)) val database
34 (db-type (eql :mysql)))
35 (declare (ignore database))
38 (defmethod database-output-sql-as-type ((type (eql 'generalized-boolean)) val database
39 (db-type (eql :mysql)))
40 (declare (ignore database))
43 (defmethod read-sql-value (val (type (eql 'boolean)) database
44 (db-type (eql :mysql)))
45 (declare (ignore database))
47 (string (if (string= "0" val) nil t))
48 (integer (if (zerop val) nil t))))
50 (defmethod read-sql-value (val (type (eql 'generalized-boolean)) database
51 (db-type (eql :mysql)))
52 (declare (ignore database))
54 (string (if (string= "0" val) nil t))
55 (integer (if (zerop val) nil t))))