Method: (ALL-CODE-PARTS BOOK)

Source

(defmethod all-code-parts ((book book))
  (loop
    for section in (contents book)
    append (remove-if-not #'code-part-p section)))