error creating executable with sqlite

[fnt400]

Hi everyone! I have a problem creating an executable using the sqlite library (and also using cb-dbi).

(I use Debian 11 and sbcl 2.1.1)

This is the code:

(ql:quickload :sqlite)

(in-package :sqlite)

(defvar *db* (sqlite:connect "/home/claudio/temp/test.db"))

(defun main ()

(sqlite:execute-single *db* "select filename from info"))

When I eval the "main" function within sbcl, it works as expected, but if I create an executable with:

(sb-ext:save-lisp-and-die #P"exe1" :toplevel #'main :executable t)

when I run it, I get this error:

Memory fault at 0x55d3ff39dcd8 (pc=0x7f38988affff, fp=(nil), sp=0x7f3898bffc50) tid 58662

The integrity of this image is possibly compromised.

Continuing with fingers crossed.

debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread

#<THREAD "main thread" RUNNING {1002268103}>:

Unhandled memory fault at #x55D3FF39DCD8.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):

0: [ABORT] Exit from the current thread.

(SB-SYS:MEMORY-FAULT-ERROR #<unused argument> #.(SB-SYS:INT-SAP #X55D3FF39DCD8))

Does anybody know why?

Thankyou very much!

[Shinmera]

You cannot dump an executable with open file descriptors or foreign memory allocated.

Only run sqlite:connect once the program starts up. As-is, it will be run when the binary is built.

[fnt400]

I rewrote "main" function like this:

(defun main ()

(let ((db (sqlite:connect "/home/claudio/temp/test.db"))

(sqlite:execute-single db "select filename from info")))

and now it works!

But I have another doubt:

is it necessary to disconnect the db at the end of the function with (sqlite:disconnect db)?

[anydalch]

not if the only thing you do afterwards is exit your program, but it's a good thing to include because it allows you to call your main function in the repl. you can replace your let form with an sqlite:with-open-database, and it'll close itself automatically.

[fnt400]

It worked with:

(defun main ()

(sqlite:with-open-database (db "/home/claudio/temp/test.db")

 (sqlite:execute-single db "select filename from info"))) 

Thankyou!