common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Disable lockfree-list.impure.

Browse source 
There's no way to make it generally work, it depends on the number of
cores and the current CPU load.
This commit is contained in:
Stas Boukarev 2018-12-07 14:23:13 +03:00
parent ffe52280ee
commit f74a10a3d6
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tests/lockfree-list.impure.lisp
View file

@ -152,12 +152,13 @@
et-locked et-lockfree ratio))
(setq best (max ratio best))))))))
(test-util:with-test (:name :lockfree-list-performance)
(test-util:with-test (:name :lockfree-list-performance
:skipped-on :sbcl)
(let ((cpus
(max 1
#-win32 (sb-alien:alien-funcall
(sb-alien:extern-alien "sysconf"
(function sb-alien:long sb-alien:int))
sb-unix::sc-nprocessors-onln)
#+win32 (sb-alien:extern-alien "os_number_of_processors" sb-alien:int))))
(max 1
#-win32 (sb-alien:alien-funcall
(sb-alien:extern-alien "sysconf"
(function sb-alien:long sb-alien:int))
sb-unix::sc-nprocessors-onln)
#+win32 (sb-alien:extern-alien "os_number_of_processors" sb-alien:int))))
(assert (> (primitive-benchmark) (min 2 (log cpus 2))))))