【ANSI-CL】17 例：オブジェクト指向言語

最終章。

• 17.2 多重継承
  
  
  
  • 優先リストを作るところのmapcanがすごいな。どうしたらこういうのがほいほい書けるようになるか。。。
    

    
    (defun precedence (obj)
      (labels ((traverse (x)
                 (cons x
                       (mapcan #'traverse
                               (gethash :parents x)))))
        (delete-duplicates (traverse obj))))
    

    
    
  
  

残念ながら力尽きて、17.4 関数構文までとなった。今日中に残りをやれば、なんとか目標は達成できるからよしとして寝ることにする。おやすみなさい。