@@ -45,7 +45,7 @@
(sql-command (format nil "CREATE TABLE IF NOT EXISTS ~a~%(~%~{~a~%~});"
name
clauses)))
- `(list ,sql-command)))
+ `(push (cons ,name ,sql-command) *tables*)))
(defun make-form-entry (entry)
(destructuring-bind (label column &key (type :text) other-column options) entry