From a321b62277f2545d5ec1fe757754e3c66166d3f5 Mon Sep 17 00:00:00 2001
From: kimory <kimory@nuguet.fr>
Date: Sun, 16 Oct 2022 13:44:14 +0200
Subject: [PATCH] remove useless TODO (db/del is now finished)

---
 src/dodb.cl | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/dodb.cl b/src/dodb.cl
index 0aca5a6..75df443 100644
--- a/src/dodb.cl
+++ b/src/dodb.cl
@@ -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))