example3 : DESTRUCTURING-BIND マクロ

example3.lisp

(in-package :cl-user)

(destructuring-bind (a b c)
    '(1 2 3)
  (print a)  ; 1
  (print b)  ; 2
  (print c)) ; 3

(terpri)

(destructuring-bind (a b (c d) (e &rest f))
    '(1 (2 3) (4 5) (6 7 8 9))
  (print a)  ; 1
  (print b)  ; (2 3)
  (print c)  ; 4
  (print d)  ; 5
  (print e)  ; 6
  (print f)) ; (7 8 9)