stream - Common Lisp でデフォルトのリーダーを変更する

Question

readcommon lispの機能を置き換えることができる関数を書きました

(defun my-read (stream &rest args)
  (declare (ignore args))
  (funcall (my-get-macro-character (read-char stream))))

この機能をデフォルトのリーダーとして使用する方法はありますか?