example2 : DOLIST マクロ

example2.lisp

(in-package :cl-user)

;; 表示してまわったり
(dolist (p '(1 2 3))
  (print p))

;; 和をとってみたり
(let ((accum 0))
  (dolist (p '(1 2 3 4 5))
    (incf accum p))
  (print accum))