23 Jan
2015
23 Jan
'15
00:44
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.