Remove debug format statements

This commit is contained in:
Tom Willemse 2013-07-01 00:36:21 +02:00
parent a993573859
commit b8fad18047
2 changed files with 0 additions and 3 deletions

View file

@ -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

View file

@ -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)