mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

add declare ignores

Browse source
This commit is contained in:
David Botton 2022-07-18 22:58:52 -04:00
parent 25a9462f1f
commit 1cf6758abb
7 changed files with 22 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-db-admin.lisp
View file

@ -141,6 +141,7 @@
(results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'"
:title "Click for Table"
:on-click-row (lambda (obj names data)
(declare (ignore obj names))
(results-window app
(format nil "select rowid,* from ~A"
(car data))