(defun add-rucksack-root-id (object-id rucksack) (push object-id (slot-value rucksack 'roots)) (setf (roots-changed-p rucksack) t))