remove useless TODO (db/del is now finished)

draft
kimory 2022-10-16 13:44:14 +02:00
parent c0385cd095
commit a321b62277
1 changed files with 0 additions and 2 deletions

View File

@ -222,7 +222,6 @@
; database.data[database.current-index] = object
(setf (gethash (db-current-index database) (db-data database)) object))
; TODO
(defun db/del (database object-index)
(let ((file-basename (number->filename object-index))
(object (gethash object-index (db-data database))))
@ -233,7 +232,6 @@
(loop for index in (db-indexes database)
do (db/index/del database index object))
; TODO
; handle partitions
(loop for partition in (db-partitions database)
do (db/partition/del database partition object file-basename))