{"published":"2013-03-26 01:16:18","author_url":"https://blog.hatena.ne.jp/shigemk2/","description":"\u4ee3\u5165\u306b\u306f\u3001setf(setq)\u306b\u3088\u308b\u4ee3\u5165\u3068\u3001\u95a2\u6570\u547c\u3073\u51fa\u3057\u306b\u3088\u308b\u4ee3\u5165\u3068\u3001let\u306b\u3088\u308b\u4ee3\u5165\u304c\u3042\u308b\u3002 \u4e0b\u306e\u4f8b\u3060\u3068\u3001\u95a2\u6570\u3092\u547c\u3073\u51fa\u3059\u3068\u304d\u306b\u3001x\u3068y\u306b\u5024\u304c\u4ee3\u5165\u3055\u308c\u3066\u3044\u308b\u3002 \u3057\u304b\u3057\u3001\u6700\u521d\u306bsetf\u3067\u4ee3\u5165\u3057\u305fx\u306e\u5024\u306f\u3001\u95a2\u6570\u547c\u3073\u51fa\u3057\u5f8c\u3082\u5909\u308f\u3089\u306a\u3044\u3002 [1]> (setf x -1) -1 [2]> (defun square-sum (x y) (+ (expt x 2) (expt y 2))) SQUARE-SUM [3]> (square-sum 3 4) 25 [4]> x -1 [5]> y *** - SYSTEM::READ-EVAL-PRINT: variable Y has no value","blog_title":"by shigemk2","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20130326%2F1364228178\" title=\"\u5bfe\u8a71\u306b\u3088\u308bCommon Lisp\u5165\u9580 5 \u4ee3\u5165 - 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>","height":"190","version":"1.0","width":"100%","url":"https://www.shigemk2.com/entry/20130326/1364228178","blog_url":"https://www.shigemk2.com/","author_name":"shigemk2","provider_url":"https://hatena.blog","type":"rich","provider_name":"Hatena Blog","title":"\u5bfe\u8a71\u306b\u3088\u308bCommon Lisp\u5165\u9580 5 \u4ee3\u5165","image_url":null,"categories":["\u8aad\u66f8\u30ce\u30fc\u30c8"]}