mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'meshtastic': add deletion of messages; revisions

Browse source
This commit is contained in:
pls.153 2023-08-09 18:32:58 +02:00
parent 8f42003e36
commit e6b25c8d60
8 changed files with 128 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/meshtastic/lisp/db.lisp
View file

@ -31,3 +31,7 @@
(let ((val (first (query "select max(mid) from messages"))))
(if (numberp val) val 0)))
(defun delete-message (mid)
(query "delete from messages where mid = ?"
mid))