slimeが動かなかった件

いつのまにかslimeがうまく起動しなくなっていて、しばらく原因がわからずにいたのだけど、
以下のデバッグ用マクロを.sbclrcに入れていたのが原因だったようでコメントアウトしたら治った。

(set-macro-character #\?
  (lambda (stream ch)
    (declare (ignore ch))
    (let ((exp #1=(read stream t nil t)))
      (if (stringp exp)
          `(progn (format t "~&~A" ,exp) (prin1 ,#1#))
        `(progn (fresh-line) (prin1 ,exp))))))

これは http://d.hatena.ne.jp/sile/20091003/1254591911 からもらってきたもの。デバッグに便利なのでなんとか自動で読み込めればいいのだけど。僕はどうせslimeでしか使わないのだから適当にemacs側でhookにかければとりあえずはできそうではある。後で。