Restore ability to set :closql-tables slots

As before, the value passed to `oset' has to be a list of keys, not the actual value. That might eventually change.
magit · Jul 1, 2024 · 47c263c · 47c263c
1 parent 7ab214c
commit 47c263c
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/closql.el b/closql.el
@@ -190,9 +190,8 @@
     (cond
      ((alist-get :closql-class props)
       (error "Not implemented for closql-class slots: oset"))
-     ((alist-get :closql-tables props)
-      (error "Not implemented for closql-tables slots: oset"))
-     (table
+     ((or table
+          (setq table (car (alist-get :closql-tables props))))
       (closql-with-transaction db
         (let ((columns (closql--table-columns db table)))
           ;; Caller might have modified value in place.