Bugfix for close-memo.

The memo slot might be unbound.
dimitri · Apr 14, 2019 · 13f380d · 13f380d
1 parent 3f5fcff
commit 13f380d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/db3.lisp b/db3.lisp
@@ -271,9 +271,10 @@ More information, from
     record))
 
 (defmethod close-memo ((db3 db3))
-  (let ((s (db3-memo-stream (memo db3))))
-   (when (and s (open-stream-p s))
-     (close s))))
+  (let ((s (when (slot-boundp db3 'memo)
+             (db3-memo-stream (memo db3)))))
+    (when (and s (open-stream-p s))
+      (close s))))
 
 
 (defmethod convert-field (db3 type data)

diff --git a/package.lisp b/package.lisp
@@ -5,6 +5,7 @@
   (:export #:*external-format*
            #:db3			; the main class
 	   #:load-header
+           #:close-memo
 	   #:record-count
 	   #:load-record
 	   #:write-record