<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Hello,</DIV>
<DIV> </DIV>
<DIV>For example,</DIV>
<DIV>in Common Lisp</DIV>
<DIV>---</DIV>
<DIV>(defvar *Data* '((aa 11) (bb 22) (cc 33)))</DIV>
<DIV> </DIV>
<DIV>(set-macro-character #\^</DIV>
<DIV>   #'(lambda (stream char)</DIV>
<DIV>       `(cadr (assoc ',(read stream t nil t) 
*Data*))))</DIV>
<DIV> </DIV>
<DIV>(print ^bb) ; => 22</DIV>
<DIV>---</DIV>
<DIV>in Gambit I tried like</DIV>
<DIV>---</DIV>
<DIV>(define *Data* '((aa 11) (bb 22) (cc 33)))</DIV>
<DIV> </DIV>
<DIV>(##readtable-char-handler-set!</DIV>
<DIV>   (##current-readtable) #\^</DIV>
<DIV>      (lambda (stm ch)</DIV>
<DIV>         `(cadr (assoc ',(##read 
stm) *Data*))</DIV>
<DIV>         
;               
^^^^^^^^^^^^ ??</DIV>
<DIV>         ))</DIV>
<DIV> </DIV>
<DIV>(pp  ^bb)  ; => #!unbound</DIV>
<DIV>---</DIV>
<DIV> </DIV>
<DIV>and I faild.</DIV>
<DIV> </DIV>
<DIV>Could you please teach me how to define "set-macro-character" like in 
Gambit.</DIV>
<DIV> </DIV>
<DIV>Thanks in advance.</DIV>
<DIV> </DIV>
<DIV> </DIV></DIV></DIV></BODY></HTML>