<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>