Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!cmcl2!seismo!mcvax!enea!pesv
From: pesv@enea.UUCP (Peter Svensson)
Newsgroups: net.lang.lisp
Subject: FranzLisp question
Message-ID: <1319@enea.UUCP>
Date: Fri, 16-May-86 05:10:14 EDT
Article-I.D.: enea.1319
Posted: Fri May 16 05:10:14 1986
Date-Received: Fri, 23-May-86 22:34:20 EDT
Reply-To: pesv@enea.UUCP (Peter Svensson)
Organization: Enea Data, Sweden
Lines: 18


Yesterday, I made a little program in Lisp. It was supposed to give n
random-numbers to see how the (random x) function was doing.
All fine and well, the function looked like this;
(def foo
  (lambda (n)
       (prog nil
	    back  (cond ((zerop n) (return))
			(t (princ (random 100))
			   (sub1 n)
			   (go back)))))

And all that happens is that for every n>0 the lisp starts to barf
the most humungus bignum ever to be seen by mortal man.  My question
is WHY?

/Peter Svenson, Enea data	..!mcvax!enea!pesv	(pesv@enea)