<html><head><meta http-equiv="Content-Type" content="text/html charset=windows-1252"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">Yeah, doing this with a reader macro is a bad idea. But you can do it with a regular macro via something like:<div><br></div><div>`(tag ,(intern (package-name (symbol-package the-symbol)) the-current-package) ,(intern (symbol-name (the-symbol)) the-current-package))</div><div><br></div><div>rg</div><div><br><div><div>On Jul 28, 2018, at 4:54 AM, Bill St. Clair <<a href="mailto:wws@clozure.com">wws@clozure.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div dir="ltr"><div class="gmail_default" style="font-family:georgia,serif">As far as I know, you can’t do that. I would also recommend against redefining the package prefix separator.</div></div><br><div class="gmail_quote"><div dir="ltr">On Sat, Jul 28, 2018 at 7:45 AM Taoufik Dachraoui <<a href="mailto:dachraoui.taoufik@gmail.com">dachraoui.taoufik@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi,<div><br></div><div>I would like to be able to transform x:foo to (tag foo x)</div><div><br></div><div>if I define a macro-character for : how can I access the symbol </div><div>read just before :</div><div><br></div><div>Example of usage:</div><div><br></div><div>(fn (x:foo) (+ x 1)) => (fn ((tag foo x)) (+ x 1))</div><div>((fn (x:list) (car x)) body:list) => ((fn ((tag list x)) (car x)) (tag list body))</div><div><br></div><div>Thanks for your help</div><div><br></div><div>Taoufik</div></div>
_______________________________________________<br>
Openmcl-devel mailing list<br>
<a href="mailto:Openmcl-devel@clozure.com" target="_blank">Openmcl-devel@clozure.com</a><br>
<a href="https://lists.clozure.com/mailman/listinfo/openmcl-devel" rel="noreferrer" target="_blank">https://lists.clozure.com/mailman/listinfo/openmcl-devel</a><br>
</blockquote></div>
_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>https://lists.clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br></div></body></html>