[Openmcl-devel] macro-characters ? x:foo => (tag foo x)

[Taoufik Dachraoui]

Hi,

I would like to be able to transform x:foo to (tag foo x)

if I define a macro-character for : how can I access the symbol
read just before :

Example of usage:

(fn (x:foo) (+ x 1)) => (fn ((tag foo x)) (+ x 1))
((fn (x:list) (car x)) body:list) => ((fn ((tag list x)) (car x)) (tag list
body))

Thanks for your help

Taoufik
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20180728/362fa2c5/attachment.htm>