Hello,
 
For example,
in Common Lisp
---
(defvar *Data* '((aa 11) (bb 22) (cc 33)))
 
(set-macro-character #\^
   #'(lambda (stream char)
       `(cadr (assoc ',(read stream t nil t) *Data*))))
 
(print ^bb) ; => 22
---
in Gambit I tried like
---
(define *Data* '((aa 11) (bb 22) (cc 33)))
 
(##readtable-char-handler-set!
   (##current-readtable) #\^
      (lambda (stm ch)
         `(cadr (assoc ',(##read stm) *Data*))
         ;               ^^^^^^^^^^^^ ??
         ))
 
(pp  ^bb)  ; => #!unbound
---
 
and I faild.
 
Could you please teach me how to define "set-macro-character" like in Gambit.
 
Thanks in advance.