From a6e2c6364f124437246b7eddea6bd3e0f86b5166 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 8 Feb 2014 17:28:04 +0100 Subject: [PATCH] Cleanup: the MySQL list-transform function is not used anymore. --- src/sources/mysql-cast-rules.lisp | 7 ------- 1 file changed, 7 deletions(-) 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*