sellout

(defun fishspam (input) (if (member input '("tunafish" "tuna" "sardines") :test #'string=)

'(<:p "thanks for your comments")
'(addcomment article (hunchentoot:post-parameter "comment") (document-property :comments (get-document article))(hunchentoot:post-parameter "name"))

'(<:p "are you a robot?") ))