systeminfo cannot fail

Shinmera · Jan 8, 2024 · 24c29f9 · 24c29f9
1 parent 3d258ee
commit 24c29f9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/machine-state.asd b/machine-state.asd
@@ -19,6 +19,7 @@
   :depends-on (:documentation-utils
                :cffi
                :bordeaux-threads
+               :trivial-features
                (:feature :windows :com-on))
   :in-order-to ((asdf:test-op (asdf:test-op :machine-state-test))))
 

diff --git a/windows.lisp b/windows.lisp
@@ -98,9 +98,9 @@
 
 (define-implementation machine-cores ()
   (cffi:with-foreign-objects ((system-info '(:struct system-info)))
-    (windows-call "GetSystemInfo"
-                  :pointer system-info
-                  :bool)
+    (cffi:foreign-funcall "GetSystemInfo"
+                          :pointer system-info
+                          :void)
     (system-info-number-of-processors system-info)))
 
 (defmacro with-thread-handle ((handle thread &optional (default 0)) &body body)