Method: (RUCKSACK-MAYBE-INDEX-NEW-OBJECT STANDARD-RUCKSACK T T)

Source

(defmethod rucksack-maybe-index-new-object ((rucksack standard-rucksack)
                                            class object)
  (let ((index (rucksack-class-index rucksack class :errorp nil)))
    (when index
      (index-insert index (object-id object) object
                    :if-exists :error))))