r9128: all multiple specs for a given backend
[clsql.git] / tests / test-basic.lisp
index 34b3f25ffe60bbf9d43db3fc5281ac66b84e1b2f..a6a501ec1a3e8606d2d7eb9988fadada71565b9c 100644 (file)
   (let ((*read-default-float-format* 'double-float))
     (coerce (read-from-string num-str) 'double-float)))
 
-(defun test-table-row (row types)
-)
-
-
 (defun double-float-equal (a b)
   (if (zerop a)
       (if (zerop b)