まず、FLOATING-POINT-INEXACT
が発生した場合ですが、一度発生してしまうと画面描画に影響を与えてしまうのかもしれません。
ですので、続けて他の物を実行しても似た症状が出る可能性があります。原因が特定できるまでは、一度エラーになったら、処理系を落す方が問題を追い掛けやすいかなと思います。
また、SB-INT:WITH-FLOAT-TRAPS-MASKED
で囲うのは、FLOATING-POINT-INEXACT
を処理する為ですので、SB-INT:WITH-FLOAT-TRAPS-MASKED
で囲むのが無難だと思います。
次にターミナルで実行はできてもSLIMEでの実行が上手く行かない件ですが、何らかの原因で評価が上手く行かないのかもしれません。
(defun p ()
(sb-int:with-float-traps-masked (:invalid)
(sdl-examples:particles)))
という関数SLIME上で定義して、
(p)
を実行してみた場合は、改善するでしょうか。
※追記
(defun foo ()
(let ((width 500) (height 500))
(sdl:with-init ()
(sdl:window width height :position nil :title-caption "test")
(sdl:with-events ()
(:quit-event () t)
(:key-down-event ()
(when (sdl:key-down-p :sdl-key-escape)
(sdl:push-quit-event)))))))
(foo)
とするのがウィンドウを出す最小限のコードみたいです。
これを実行すると500x500のウィンドウが表示される筈ですが(escで終了)、これもSLIMEではどうでしょうか。
追記 SLIME環境依存問題の切り分け
sbclを起動します
(ql:quickload :lispbuilder-sdl)
(ql:quickload :lispbuilder-sdl-examples)
(sb-int:with-float-traps-masked (:invalid)
(sdl-examples:particles))
を入力して起動することを確認します。
escで終了します。
次に
(ql:quickload :swank)
(swank:create-server :port 7777 :dont-close t)
と入力しswankを起動します。
次に、Emacsを起動し
M-x slime-connect
を実行し Host:127.0.0.1
、Port:7777
で接続します。
SLIME の replに
(sb-int:with-float-traps-masked (:invalid)
(sdl-examples:particles))
を入力し確認します。
これで問題ないならば、SLIMEの立ち上げ方法に何か問題があるかもしれません。