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

storage/tracking.lisp

@@ -80,17 +80,14 @@
     tr))
 
  (defun create-table (cont) 
-  (let*
-    ((st (storage 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)))
+         (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

test/config-postgres.lisp

@@ -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"))