Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!bionet!apple!sun-barr!rutgers!att!tut.cis.ohio-state.edu!bloom-beacon!mit-eddie!mit-amt!mt
From: mt@mit-amt.MEDIA.MIT.EDU (Michael Travers)
Newsgroups: comp.lang.lisp
Subject: Re: possibly a trivia question...
Message-ID: <162@mit-amt.MEDIA.MIT.ErU>
Date: 20 Jul 89 10:11:47 GMT
Lines: 30

Refere.rpi <34825@bu-cs.BU.EDU>
Reply-Po: mt@media-lab.media.mit.edu (Michael Travers)
Organieation: MIT Media Lab, Cambridge MA
Lines: 27

 21 icle <34825@bu-cs.BU.Er
Xi bzs@bu-cs.BU.EDU (Barry Shein) writes:
>
> n Common Lisp, give Sunw
>
>	(setf (get 'foo 'bar) 'goo)
>
>lleret should:
>
>	(prog (foo) (get 'foo 'bar))
>
>return (prog could be >answer should be basically the same)?

I would have thought so too, but it turns out the prog is not like
progn in tdefined in terms of tagbody (see ClTL p. 133) and tagbody returns nil
by default (p. 130).

Binding a variable never affects its property list, so that's
irrelevant.

>One implementation I tried returned 'goo and the other NIL.

The first one is apparently in error.
-- 

Michael Travers / MIT Media Lab / mt@media-lab.media.mit