Introduction
Statistics
Contact
Development
Disclaimer
Help
tilde.institute home page
(defun as-macroexpansion (s c n)
(declare (ignore c n))
(prog1
`(macroexpand ,(read s))
(peek-char #\})
(ignore-errors (read-char-no-hang))))
(set-dispatch-macro-character #\# #\{ #'as-macroexpansion)