ARROWS A 202F に機種変更した

AQUOS PHONE 102SH から ARROWS A 202F に機種変更した。

suica の変更手続きする前に機種変更手続きしちゃってあせったが、新しい sim を前の機種にさしてsuica の変更手続きできた。

StumpWM でアラーム

3分たったら知らせてほしい時とかあるよね。汁全部なくなったりしたら悲しいもんね。

使った。

(defcommand alarm (seconds message) ((:number "seconds: ") (:string "message: "))
  "alarm"
  (sb-thread:make-thread
   (lambda ()
     (sleep seconds)
     (stumpwm::message-no-timeout "^3*~
~a

　　☆ *　. 　☆
　☆　. ∧＿∧　∩　* ☆
ｷﾀ━━━( ・∀・)/ . ━━━！！
　 . ⊂　　 ノ* ☆
　☆ * (つ ノ .☆
　 　 (ノ" message))))

StumpWM は手軽るにこういうことができるのがいい。

これで疲労ぬきして出撃できる。

ラグドール

ラグドールのタオがうちに来てから一週間たった。だいぶ調子がでてきた感じ。

ダイエーでたまたま見かけた。誕生日が私と同じだから5か月ほど売れ残っていたことになる。これは運命とか縁とかいうものかね。

Postgresql を 9.1 から 9.3 に

Debian sid で sudo apt-get dist-upgrade したら「メジャーバージョン 9.1 はもはや使われません」とか言われたので、素直にアップグレードした。

sudo apt-get install postgresql-9.3
sudo pg_dropcluster 9.3 main --stop
sudo pg_upgradecluster 9.1 main

sed じゃなくて awk だよね

(ql:quickload :info.read-eval-print.sed)
(ql:quickload :trivial-shell)

(use-package :info.read-eval-print.sed)

(let ((odd-total 0)
      (even-total 0))
  (with-input-from-string (in (trivial-shell:shell-command "ls -l /tmp"))
    (sed (:in in :n t)
      (when ($ 5)
        (let (($5 (parse-integer ($ 5))))
          (if (oddp (parse-integer ($ 2)))
              (incf odd-total $5)
              (incf even-total $5))))))
  (values odd-total even-total))

ブログ書かなきゃ

Google Reader がなくなってブログ読まなくなったな。それであまり書かなくなった。というわけではない。

今年も鳥取に帰省した。だれもいなく、くらげもいなかった。

Common Lisp 関連は https://github.com/quek/unpyo を書いて遊んでる。

サーバプログラムでデバッガーの起動

Common Lisp でサーバプログラムを書いている時、エラーは (handler-case ... (error (e) ...) って感じで全てにぎりつぶしたい。

でも、そうすると開発中はデバッガ起動しなくて困る。

どうしよう・・・ということで Hunchentoot のソース読んでみた。 with-simple-restart で invoke-debugger をかこめばいいみたい。

次のようにすると変数1つでデバッガの起動するしないを切り替えられるんだね。

(defvar *invoke-debugger-p* t)

(defun my-debugger (e)
  (when *invoke-debugger-p*
    (with-simple-restart (continue "Return from here.")
      (invoke-debugger e))))

(defmacro with-debugger (&body body)
  `(handler-bind ((error #'my-debugger))
     ,@body))

;; サーバのループ処理イメージ
(loop for socket = (accept)
  do (handler-case
         (with-debugger (call socket))
       (error (e)
          (error-handle e))))

*invoke-debugger-p* を t にしておけばエラー発生時にデバッガがあがる。そのデバッガで Continue リスタートを選べば handler-case により error-handle がちゃんと呼ばれる。

invoke-debugger はそのままだと処理が戻らないから with-simple-restart でかこんであげるってことだね。