Xref: utzoo comp.lang.lisp:3986 comp.lang.scheme:1800
Path: utzoo!attcan!uunet!zaphod.mps.ohio-state.edu!usc!sdd.hp.com!ucsd!ucbvax!BOOJUM.HUJI.AC.IL!misha
From: misha@BOOJUM.HUJI.AC.IL (Michael Pak)
Newsgroups: comp.lang.lisp,comp.lang.scheme
Subject: A Scheme -> CL conversion question.
Keywords: Scheme
Message-ID: <.658347415@boojum>
Date: 11 Nov 90 18:16:55 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Followup-To: comp.lang.lisp
Lines: 24

Hello there, gurus of Scheme AND Common Lisp.

    How do you write the following Scheme code in Common Lisp:

------- cut here --------
(define (foo func)
 (lambda (bar) (func (func (func bar))))))

((((foo foo) foo) 1+) 0)     ;See the spoiler at the end to see what does
                             ;  this cute little thing return...
------- cut here -------


I have tried many ways to implement this in Common Lisp, but every time
it says that something else is wrong. I have just begun studying Common Lisp,
and this thing was the first I wanted to try.

     Thanks a lot.

Misha.

   Spoiler:

It returns 3^27.