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.