Baguette
/
dodb
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/dodb.cl
View File

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