Definiowanie własnego makro odczytu

Question

Istnieje kilka odczytanych makr w Common Lisp, takich jak '#'#P, ale jak mogę napisać makro odczytu?

Jak to:

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

Answer 1

Można użyć set-macro-character i set-dispatch-macro-character, na przykład po:

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

można używać zainstalowanego czytać składni

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