🚀 go-pugleaf

;;This is a program that simulates worms in Common Lisp.
;;As I am a new Lisp programmer I wounder if it will work.
;;Is it ANSI and CLtL2 standard.
(Defvar *worms*)
(Defvar *func_msg*)
(Setf *worms* 1)
(Defmacro Worm ()
   (let ((fname (GENSYM)))
     `(Progn
               (Defun ,fname ()
                   (incf *worms*)
                   (If (= *worms* 4) 
                       (Format t *func_msg*)
                       (Worm)))
               (Funcall ,fname))))
(Defun $Start_Worm (Msg)
(Setf *func_msg* Msg)
(Worm))
($Start_Worm "~&Robert Morrison used C.")
;;Lisp is better then C. Are their other programs
;;like this written in Lisp.
;;I hope this will help us study Hofstedters virus concep of
;;evolutionary AI and symbol systems evolving out of a chaotic
;;interaction of Worms of Virus will breed a new AI Paradigm.
;;Any helpfun comments would be appreacated.