{"author_name":"shigemk2","categories":["Emacs Lisp"],"width":"100%","published":"2012-04-24 04:02:08","blog_url":"https://www.shigemk2.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20120424%2F1335207728\" title=\"\u5024\u306b\u3088\u308b\u5834\u5408\u5206\u3051 - by shigemk2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","blog_title":"by shigemk2","image_url":"http://ecx.images-amazon.com/images/I/51Wg39T8KAL.jpg","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/shigemk2/","title":"\u5024\u306b\u3088\u308b\u5834\u5408\u5206\u3051","provider_name":"Hatena Blog","height":"190","type":"rich","description":"case\u3068\u304btypetest\u3068\u304b\u4f7f\u3046\u3068\u3044\u3044\u3093\u3060\u3088\u306d\u30fc (defun case-test (value) (case value (1 \"one\") ((2 3) \"two or three\") ((t) \"true\") (t \"other\"))) (case-test 1) ; => \"one\" (case-test 3) ; => \"two or three\" (case-test t) ; => \"true\" (case-test 9) ; => \"other\" (defun type-test (v) (typecase v (null \"nil\") (character \"1-4194\u2026","url":"https://www.shigemk2.com/entry/20120424/1335207728"}