From 26cc9ca79f700a0e22d5ee28700faa20f29e6ddc Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 10 Jun 2019 22:58:12 +0200 Subject: [PATCH] Implement support for DBF deleted records. Skip over deleted records rather than blindly importing them. Requires an update of the underlying DBF library. Fixes #985. --- src/sources/db3/db3.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/sources/db3/db3.lisp b/src/sources/db3/db3.lisp index d663170..ce9d060 100644 --- a/src/sources/db3/db3.lisp +++ b/src/sources/db3/db3.lisp @@ -23,7 +23,9 @@ (loop :with count := (db3:record-count db3) :repeat count - :for row-array := (db3:load-record db3 stream) + :for (row-array deleted) := (multiple-value-list + (db3:load-record db3 stream)) + :unless deleted :do (funcall process-row-fn row-array) :finally (return count)))))