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

Source

(defmethod delete-rucksack-root (object (rucksack standard-rucksack))
  (with-slots (roots)
      rucksack
    (setf roots (delete (object-id object) roots)
          (roots-changed-p rucksack) t)))