Remove debug format statements
This commit is contained in:
parent
a993573859
commit
b8fad18047
2 changed files with 0 additions and 3 deletions
|
@ -32,7 +32,6 @@
|
||||||
|
|
||||||
(defmethod datastore-post-story
|
(defmethod datastore-post-story
|
||||||
((datastore pg-datastore) role necessity title content reporter)
|
((datastore pg-datastore) role necessity title content reporter)
|
||||||
(format t "~s:~s:~s:~s:~s~%" role necessity title content reporter)
|
|
||||||
(with-connection (connection-spec datastore)
|
(with-connection (connection-spec datastore)
|
||||||
(let ((obj (make-instance
|
(let ((obj (make-instance
|
||||||
'story :role role :necessity necessity :title title
|
'story :role role :necessity necessity :title title
|
||||||
|
|
|
@ -75,8 +75,6 @@
|
||||||
(necessity (hunchentoot:post-parameter "necessity"))
|
(necessity (hunchentoot:post-parameter "necessity"))
|
||||||
(title (hunchentoot:post-parameter "headline"))
|
(title (hunchentoot:post-parameter "headline"))
|
||||||
(content (hunchentoot:post-parameter "content")))
|
(content (hunchentoot:post-parameter "content")))
|
||||||
(format t "~s;~s;~s;~s;~s~%" role necessity title content
|
|
||||||
(hunchentoot:session-value :username))
|
|
||||||
(post-story role necessity title content
|
(post-story role necessity title content
|
||||||
(hunchentoot:session-value :username))
|
(hunchentoot:session-value :username))
|
||||||
200)
|
200)
|
||||||
|
|
Loading…
Reference in a new issue