cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

storage: minor code simplification; re-add schema setting to postgres test config

Browse source
This commit is contained in:
Helmut Merz 2024-07-26 16:43:14 +02:00
parent c0c6b10e94
commit 94c515a191
2 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
storage/tracking.lisp
View file

@ -80,17 +80,14 @@
tr))
(defun create-table (cont)
(let*
((st (storage cont))
(tn (table-name cont))
(table (storage:qualified-table-name st tn))
(head-fields (item-head-fields cont))
(params (storage:params st))
(id-type (getf params :id-type))
(json-type (getf params :json-type))
(hf-def (mapcar #'(lambda (x)
(list x :type 'text :not-null t :default '|''|))
head-fields)))
(let* ((st (storage cont))
(tn (table-name cont))
(table (storage:qualified-table-name st tn))
(params (storage:params st))
(id-type (getf params :id-type))
(json-type (getf params :json-type))
(hf-def (mapcar #'(lambda (x) (list x :type 'text :not-null t :default '|''|))
(item-head-fields cont))))
(storage:do-sql st
(sxql:make-statement :create-table table
(nconc

3
test/config-postgres.lisp
View file

@ -19,4 +19,5 @@
(config:add :storage :class 'storage:config :setup #'storage:setup
:db-type :postgres
:connect-args postgres-connect-args)
:connect-args postgres-connect-args
:options '(:schema "testing"))