Skip to content

Instantly share code, notes, and snippets.

@goloroden
Created April 19, 2015 10:28
Show Gist options
  • Save goloroden/94ec8bda51f953b43386 to your computer and use it in GitHub Desktop.
Save goloroden/94ec8bda51f953b43386 to your computer and use it in GitHub Desktop.
Gimme cookie!
(defun cookie-monster ()
(format t "~&Give me cookie!!!")
(format t "~&Cookie? ")
(let ((x (read)))
(cond ((eq x 'cookie)
(format t "~&Thank you!...Munch munch munch...BURP"))
(t
(format t "~&No want ~S..." x)
(cookie-monster)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment