Skip to content

Instantly share code, notes, and snippets.

Avatar
🍌
semper φ

Greg Pfeil sellout

🍌
semper φ
View GitHub Profile
View gist:3889105
(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?") ))
You can’t perform that action at this time.