Hatena::Groupcadr

kozima の日記

2010-11-14

gethash にデフォルト値を渡せるの忘れてた

| 20:57

昨日のエントリ http://cadr.g.hatena.ne.jp/lkozima/20101113/1289661114 を見ていて気付いたけど

(setf #1=(gethash ym h) (1+ (or #1# 0)))

これは

(setf (gethash ym h) (1+ (gethash ym h 0)))

こうしたほうがスマートか。

あるいは

(setf #1=(gethash ym h 0) (1+ #1#))

こう書いても動くけど,これはなんか違う気がする。

youzyouz2010/11/15 00:57(let ((h (make-hash-table)))
(incf (gethash :asdf h 0))
(gethash :asdf h))
こんなんでOKっぽいですね