Silence byte-compiler

magit · Oct 6, 2023 · 804c5e8 · 804c5e8
1 parent 4965ed7
commit 804c5e8
Showing 1 changed file with 12 additions and 7 deletions.
diff --git a/lisp/forge-db.el b/lisp/forge-db.el
@@ -28,11 +28,13 @@
 (require 'emacsql)
 
 ;; For `closql--db-update-schema':
+(declare-function forge--object-id "forge-core")
 (declare-function forge-get-issue "forge-core")
 (declare-function forge-get-pullreq "forge-core")
-(declare-function forge--object-id "forge-core")
+(declare-function forge-get-repository "forge-core" (demand))
 
 (eval-when-compile
+  (cl-pushnew 'number eieio--known-slot-names)
   (cl-pushnew 'value eieio--known-slot-names))
 
 ;;; Options
@@ -438,12 +440,15 @@
         (emacsql db [:alter-table pullreq :add-column slug :default nil])
         (emacsql db [:alter-table issue   :add-column slug :default nil])
         (dolist (o (closql-entries (forge-db) nil 'forge-pullreq))
-          (oset o slug (format "%s%s"
-                               (if (forge-gitlab-repository--eieio-childp
-                                    (forge-get-repository o))
-                                   "!"
-                                 "#")
-                               (oref o number))))
+          (oset o slug
+                (format
+                 "%s%s"
+                 (if (and (fboundp 'forge-gitlab-repository--eieio-childp)
+                          (forge-gitlab-repository--eieio-childp
+                           (forge-get-repository o)))
+                     "!"
+                   "#")
+                 (oref o number))))
         (dolist (o (closql-entries (forge-db) nil 'forge-issue))
           (oset o slug (format "#%s" (oref o number))))
         (closql--db-set-version db (setq version 10))