From bc1167d3e31f17281050e66ea1499dc9053fcf43 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sun, 14 Apr 2019 22:14:43 +0200 Subject: [PATCH] Implement support for DB3 MEMO files. The support code is actually found in cl-db3, the changes that are necessary for pgloader are only about updating to the new API. Fixes #926. --- src/sources/db3/db3-schema.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/sources/db3/db3-schema.lisp b/src/sources/db3/db3-schema.lisp index 130d992..1e2baa1 100644 --- a/src/sources/db3/db3-schema.lisp +++ b/src/sources/db3/db3-schema.lisp @@ -17,12 +17,13 @@ (open (fd-path dbfconn) :direction :input :element-type '(unsigned-byte 8))) - (let ((db3 (make-instance 'db3:db3))) + (let ((db3 (make-instance 'db3:db3 :filename (fd-path dbfconn)))) (db3:load-header db3 (conn-handle dbfconn)) (setf (fd-db3 dbfconn) db3)) dbfconn) (defmethod close-connection ((dbfconn dbf-connection)) + (db3:close-memo (fd-db3 dbfconn)) (close (conn-handle dbfconn)) (setf (conn-handle dbfconn) nil (fd-db3 dbfconn) nil)