Skip to content

Instantly share code, notes, and snippets.

@sellout

sellout/gist:3889105

Created October 14, 2012 16:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sellout/3889105 to your computer and use it in GitHub Desktop.
Save sellout/3889105 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.lisp
(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?") ))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment