ぱたへね

はてなダイアリーはrustの色分けができないのでこっちに来た

[Lisp] LispWorksのヘルプを他のブラウザで見る

Windows環境でLispWorksを使っていると、Helpを起動するたびにデフォルトのブラウザがIEでは無いので Unrecognized application がどうのこうのと言われてワンクッション入ってしまいます。流石にこれは飛ばせる方法があるだろうと思い、調べていたらMLで解決策を見つけました。

(require "hqn-web")

(defadvice (hqn-web::init-default-browser
            handle-mozilla :around
            :documentation
            "Handle non-IE browsers like IE without querying the user")
    ()
  (handler-bind ((simple-error (lambda (c)
                                 (when (string=
                                        (simple-condition-format-control c)
                                        "Unrecognized application ~A registered for .HTM files.")
                                   (continue c)))))
    (call-next-advice)))

これを.lispworksに加えると、次からはデフォルトのブラウザが立ち上がるようになります。