I started programming in Lisp today because I was both curious and bored. After a few hello-world-like programs I decided to make something a little more interesting.<br /><br />When I went to run this script, the script got to the evolve function before it died and gave me an error message <!--QuoteBegin-"clisp"+--><div class='quotetop'>QUOTE("clisp")</div><div class='quotemain'><!--QuoteEBegin-->*** - Lisp stack overflow. RESET<!--QuoteEnd--></div><!--QuoteEEnd-->. I googled the error message and didn't get any answers.<br /><br />There probably arent many Lisp programmers here, but maybe one of you can help me.<!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->; Functions --<br />(defun evolve (x y)<br />Â Â Â Â (if(eq x 15)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ; if<br />Â Â Â Â (format t "x is equal to 15~%"); then<br />Â Â Â Â (if(eq y 30)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ; else & if<br />Â Â Â Â (format t "y is equal to 30~%"); then<br />Â Â Â Â (mutate x y))))Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ; else<br /><br />(defun mutate (x y)<br />Â Â Â Â (if(> x 0) (/ x y))<br />Â Â Â Â (if(> y 0) (/ y x))<br />Â Â Â Â (if(< x 0) (* x y))<br />Â Â Â Â (if(< y 0) (* y x))<br />Â Â Â Â (evolve x y))<br /><br />; Program --<br />(format t "jpw1991~%29/3/2008~%"); ~% --> \n<br /><br />(evolve 5 10)<!--c2--></div><!--ec2-->
</div>
</div>