Determine number of threads in runtime environment

ak-coram · Nov 5, 2023 · ef9daf1 · ef9daf1
1 parent 14c136c
commit ef9daf1
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/duckdb.lisp b/duckdb.lisp
@@ -926,10 +926,11 @@ intentionally."
            (perform ,finish-statement))))))
 
 ;; Initialize the default number of threads based on DuckDB defaults
-(unless *default-thread-count*
-  (with-open-database (db :threads nil)
-    (with-default-connection (db)
-      (setf *default-thread-count*
-            (get-result (query "SELECT current_setting('threads') AS thread_count"
-                               nil)
-                        'thread-count 0)))))
+(eval-when (:execute)
+  (unless *default-thread-count*
+    (with-open-database (db :threads nil)
+      (with-default-connection (db)
+        (setf *default-thread-count*
+              (get-result (query "SELECT current_setting('threads') AS thread_count"
+                                 nil)
+                          'thread-count 0))))))