lisp - 独自の読み取りマクロを定義する

Question

Common Lisp には などの read マクロがありますが、read マクロは' #' #Pどのように書けばよいのでしょうか?

このような：

#T"hello world"
====================>
(gettext "hello world")

Answer 1

たとえば、次のようにset-macro-characterおよびset-dispatch-macro-characterを使用できます。

(set-dispatch-macro-character #\# #\T
  (lambda (s c n)
    `(gettext ,(read s t nil t))))
==> T

インストールされた読み取り構文を使用できます

(read-from-string "#T\"this is a test\"")
==> (GETTEXT "this is a test")