diff --git a/src/sources/mysql-cast-rules.lisp b/src/sources/mysql-cast-rules.lisp
index 954fa83..ac8fbf8 100644
--- a/src/sources/mysql-cast-rules.lisp
+++ b/src/sources/mysql-cast-rules.lisp
@@ -327,13 +327,6 @@ that would be int and int(7) or varchar and varchar(25)."
 			   :column-name column-name)
     (values pgtype transform-fn)))
 
-(defun list-transforms (columns)
-  "Return the list of transformation functions to apply to a given table."
-  (loop
-     for col in columns
-     collect (with-slots (name dtype ctype default nullable extra) col
-	       (get-transform-function dtype ctype default nullable extra))))
-
 (defun test-casts ()
   "Just test some cases for the casts"
   (let ((*cast-rules*