(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)