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))