@@ -0,0 +1,5 @@
+(defun select (tables fields &optional comp)
+ (format nil "SELECT ~s FROM ~s ~s;" (dofields 'fields) (dotables 'tables) (docompare 'comp)))
+
+(defun dofields (fields)
+ (format nil "~{~s~^, ~}" fields))