Skip to content

Instantly share code, notes, and snippets.

@goloroden

goloroden/gist:94ec8bda51f953b43386

Created April 19, 2015 10:28
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 goloroden/94ec8bda51f953b43386 to your computer and use it in GitHub Desktop.
Save goloroden/94ec8bda51f953b43386 to your computer and use it in GitHub Desktop.
Download ZIP
Gimme cookie!
Raw
gistfile1.lisp
(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