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