;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc\r
;;;; Date Started: Mar 2002\r
;;;;\r
-;;;; $Id: mysql-usql.cl,v 1.5 2002/04/27 21:48:08 kevin Exp $\r
+;;;; $Id: mysql-usql.cl,v 1.6 2002/05/27 17:19:30 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;; and by onShore Development Inc.\r
\r
;; Misc USQL functions\r
\r
+#|\r
#+ignore\r
(defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) \r
(database mysql-database))\r
(make-instance 'clsql-sys::sql-typecast-exp\r
:modifier 'int8\r
:components val)))\r
+|#\r