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