You can use set-macro-character and set-dispatch-macro- character , for example, after:
(set-dispatch-macro-character
(lambda (s c n)
`(gettext ,(read s t nil t))))
==> T
you can use the set reading syntax
(read-from-string "#T\"this is a test\"")
==> (GETTEXT "this is a test")
source
share