Update mysql-cast-rules.lisp

This commit is contained in:
Chirikumbrah 2024-03-19 16:42:28 +03:00 committed by GitHub
parent 2079646c81
commit 6182806ee9
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -7,7 +7,7 @@
(defun enum-or-set-name (table-name column-name type ctype typemod) (defun enum-or-set-name (table-name column-name type ctype typemod)
(declare (ignore type ctype typemod)) (declare (ignore type ctype typemod))
(apply-identifier-case (apply-identifier-case
(format nil "~a_~a" (unquote table-name #\") (unquote column-name #\")))) (format nil "~a__~a" (unquote table-name #\") (unquote column-name #\"))))
;;; ;;;
;;; The default MySQL Type Casting Rules ;;; The default MySQL Type Casting Rules