Browse code
Set Debug toggle via ubiquitous and fix table creation
E L authored on 25/01/2016 00:13:47
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -6,7 +6,7 @@ |
6 | 6 |
(defclass submission () |
7 | 7 |
((headline :initarg :headline :col-type text :initform "" :accessor inangulis::s-headline) |
8 | 8 |
(url :initarg :url :col-type text :initform "" :accessor inangulis::s-url) |
9 |
- (date :initarg :date :col-type timestamp-with-timezone :initform "") |
|
9 |
+ (date :initarg :date :col-type timestamptz :initform "") |
|
10 | 10 |
(approved :initarg :approved :col-type text :initform "" :accessor inangulis::s-approved)) |
11 | 11 |
(:metaclass dao-class) |
12 | 12 |
(:keys headline url)) |
... | ... |
@@ -14,8 +14,9 @@ |
14 | 14 |
(deftable submission |
15 | 15 |
(!dao-def)) |
16 | 16 |
|
17 |
-;(with-connection (ubiquitous:value 'db) |
|
18 |
-; (create-table 'submission)) |
|
17 |
+;; (ubiquitous:restore :inangulis) |
|
18 |
+;; (with-connection (ubiquitous:value 'db) |
|
19 |
+;; (create-table 'submission)) |
|
19 | 20 |
|
20 | 21 |
(defmethod inangulis::s-date ((object submission)) |
21 | 22 |
(with-slots (date) object |