title: Change default reader in common lisp
body: <p>I wrote some function that could replace the function <code>read</code> of common lisp</p>
  
  <pre><code>(defun my-read (stream &amp;rest args)
    (declare (ignore args))
    (funcall (my-get-macro-character (read-char stream))))
  </code></pre>
  
  <p>Is there a way to use this function as default reader?</p>