Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site alice.UUCP
Path: utzoo!linus!decvax!bellcore!ulysses!allegra!alice!bart
From: bart@alice.UucP (Bart N. Locanthi)
Newsgroups: net.micro.amiga
Subject: re: shopping frustration
Message-ID: <5232@alice.uUCp>
Date: Tue, 1-Apr-86 20:57:56 EST
Article-I.D.: alice.5232
Posted: Tue Apr  1 20:57:56 1986
Date-Received: Thu, 3-Apr-86 04:56:50 EST
Organization: Bell Labs, Murray Hill
Lines: 21


||one of the demos we did try was amigalisp 1.0.  it at least could handle
||(cons 'a 'b), but had an infinite recursive loop when we attempted to
||execute (fib 2) (or (fib N) for N>1 for that matter) with fib defined
||as
|| 
||(df fib (n) (cond ((zerop n) 1)
||                  ((eq n 1) 1)
||                  (t (plus (fib (sub1 n)) (fib (difference n 2))))))
|
|I have not played with AmigaLisp, but you should probably write
|'(equal n 1)' rather than '(eq n 1)'. Most Lisp implementations
|only guarantee atoms to be unique (your code would, however, work
|in Franz Lisp -- by what I would call a coincidence :-).

until a few days ago i had not encountered a lisp in which eq did not
work on numbers.  of maclisp, interlisp, uci-lisp, franz lisp, etc, and
amigalisp, i would say that amigalisp is broken.

will someone out there who has amigalisp verify whether or not this indeed
is the problem?