Method: (RUCKSACK-ROOT-P T STANDARD-RUCKSACK)

Source

(defmethod rucksack-root-p (object (rucksack standard-rucksack))
  (member (object-id object)
          (slot-value rucksack 'roots)))