remove useless TODO (db/del is now finished)
parent
c0385cd095
commit
a321b62277
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue