<br><div class="gmail_quote">2008/12/11 Andre Mayers <span dir="ltr">&lt;<a href="mailto:andre.mayers@usherbrooke.ca">andre.mayers@usherbrooke.ca</a>&gt;</span><br><div>&nbsp;</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d"></div>(define slot-value<br><div class="Ih2E3d">&nbsp;
 (ë (slot-name objet)<br>
 &nbsp; &nbsp;(cadr (assq (quote slot-name) objet))))<br>
</div></blockquote><div><br>The (quote slot-name) is most likely redundant.<br>&nbsp;</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="Ih2E3d">
<br>
(define-syntax (tata stx)<br>
 &nbsp;(syntax-case stx ()<br>
 &nbsp; &nbsp;[(_ a v (s ps ...) body ...)<br>
 &nbsp; &nbsp; (syntax<br>
; &nbsp; &nbsp; &nbsp;(eval<br>
 &nbsp; &nbsp; &nbsp; (list &#39;ë &#39;(self ps ...)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(list* &#39;let (map (ë (p-attr)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (list p-attr<br>
</div> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (list slot-value (quote p-attr)<br>
<div class="Ih2E3d">&#39;self)))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#39;(body ...)))<br></div></blockquote><div><br>Try <br><br>`(quote ,p-attr) <br><br>instead of <br><br>(quote p-attr)<br><br><br></div></div>