構造体

Last-modified: 2011-04-30 (土) 06:17:19

defstruct（構造体の定義） 

(defstruct 構造体の名前 要素1 要素2…)
(defstruct Person
  familyName
  givenName
  birthday
  phone
)

make_～ （構造体の作成と要素へのアクセス） 

(make_構造体の名前 ?要素1 値1　?要素2　値2 …)
(setq buffySummers
  (make_Person
    ?familyName "Summers"
    ?givenName  "Buffy"
    ?birthday   "Nov 19 1981"
    ?phone      "+61 2 9130 1731"
  )
)
buffySummers->birthday
→ "Nov 19 1981"
buffySummers->phone = "+81 120 333 906"
buffySummers->?
→ (familyName givenName birthday phone)
buffySummers->??
→ (faimilyName "Summers" givenName "Buffy" birthday "Nov 19 1981" phone "+81 120 333 906")