size bigint)")

                                 size bigint,
                                 count bigint,
                                 ts datetime default current_timestamp)")

                        (when (< (random 1000000)
                                 100)
                          (format *error-output* "~&processed: ~a~%" (uiop:native-namestring file)))

                                                     "insert into files_shasums (file,shasum,size)
                                                      values (?,?,?)
                                                      on conflict do nothing"

                                                     "insert into files_shasums (file,shasum,size,count)
                                                      values (?,?,?, 1)
                                                      on conflict do update set count = (count + 1),
                                                                                ts = current_timestamp"

                                                     length)))))))
           (terpri)))))

                                                     length)))))))))))

bin/