सामान्य लिस्प में कुछ रीड मैक्रोज़ हैं जैसे कि '#'#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")