|
|
@@ -19,14 +19,18 @@
|
|
|
#:post-parameter)
|
|
|
(:import-from #:lass
|
|
|
#:compile-and-write))
|
|
|
+
|
|
|
(in-package ,name)
|
|
|
+
|
|
|
(defvar *tables*)
|
|
|
(defvar *db*)
|
|
|
+
|
|
|
(defun start (port)
|
|
|
(setq *db* (connect ,file))
|
|
|
(iter (for (name . query))
|
|
|
(do (execute-non-query *db* query)))
|
|
|
(restas:start ,name :port 8080))
|
|
|
+
|
|
|
,@body-forms))
|
|
|
|
|
|
(defun to-sql-type (type)
|
