RosettaCodeData/Task/Loops-Infinite/ACL2/loops-infinite.acl2

7 lines
127 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defun spam ()
(declare (xargs :mode :program))
(if nil
nil
(prog2$ (cw "SPAM~%")
(spam))))