Есть несколько прочитанных макросов в Common Lisp, таких как '#'#P, но как я могу написать прочитанный макрос?Определите мой собственный макрос для чтения
Как это:
#T"hello world"
====================>
(gettext "hello world")
Вы можете использовать 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")