Function: SORT-PARTS-WITH-DESCRIPTORS

Source

(defun sort-parts-with-descriptors (parts)
  (sort (remove-if #'null parts :key #'descriptor)
        'compare-descriptor-names :key #'descriptor))