P.171
17行目からのサンプルコード
|
未定
|
| 誤 |
(defmacro image (var list &rest forms)
`(let ((list ,list)
(r nil)
(,var nil) )
(while (list (nreverse r))
(setq ,var (pop list))
(push (progn ,@forms) r) )))
|
| 正 |
(defmacro image (var list &rest forms)
`(let (($list$ ,list)
($r$ nil)
(,var nil) )
(while ($list$ (nreverse $r$))
(setq ,var (pop $list$))
(push (progn ,@forms) $r$) )))
|
|
