remove debugging

This commit is contained in:
Frank Henard 2014-01-28 14:25:43 -06:00
parent d32d16e8e2
commit ff760e12de

View file

@ -318,7 +318,6 @@
(str "SELECT " (-handle-select fields sql-map))) (str "SELECT " (-handle-select fields sql-map)))
(defmethod format-clause :select-top [[_ [limit-count fields]] sql-map] (defmethod format-clause :select-top [[_ [limit-count fields]] sql-map]
(println "limit-count = " limit-count "; fields = " fields "; sql-map = " sql-map)
(str "SELECT TOP " limit-count " " (-handle-select fields sql-map))) (str "SELECT TOP " limit-count " " (-handle-select fields sql-map)))
(defmethod format-clause :from [[_ tables] _] (defmethod format-clause :from [[_ tables] _]