this may help:<div><br></div><div><div>(defun compare (x y)</div><div>  (list x y (eq x y) (equal x y) (equalp x y)))</div><div><br></div><div>(let* ((x (gensym))</div><div>       (y (read-from-string (prin1-to-string x))))</div>
<div>  (list   (compare x x)</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>  (compare x y)))</div><div><br></div><br><div class="gmail_quote">On Wed, Aug 1, 2012 at 3:28 PM, Ron Garret <span dir="ltr"><<a href="mailto:ron@flownet.com" target="_blank">ron@flownet.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im"><br>
On Aug 1, 2012, at 12:22 PM, Taoufik Dachraoui wrote:<br>
<br>
> Ok thanks<br>
><br>
> I solved the problem by doing using (intern (symbol-name (gensym))) instead of (gensym)<br>
><br>
> I did not know that the generated symbols do not belong to any package:<br>
><br>
> (symbol-package '#:G34159)<br>
> > NIL<br>
<br>
</div>RTFM.<br>
<br>
<a href="http://clhs.lisp.se/Body/f_gensym.htm" target="_blank">http://clhs.lisp.se/Body/f_gensym.htm</a><br>
<br>
You might also want to take a look at GENTEMP.<br>
<div class="im"><br>
><br>
> Is there any reason for this? because usually a symbol is interned in the current package<br>
<br>
</div>Not when you make it with GENSYM (which uses MAKE-SYMBOL)  The Lisp reader interns symbols in the current package, but MAKE-SYMBOL doesn't.<br>
<br>
You really should read the paper I pointed you to.  All of it.<br>
<span class="HOEnZb"><font color="#888888"><br>
rg<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
_______________________________________________<br>
Openmcl-devel mailing list<br>
<a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>
<a href="http://clozure.com/mailman/listinfo/openmcl-devel" target="_blank">http://clozure.com/mailman/listinfo/openmcl-devel</a><br>
</div></div></blockquote></div><br></div>