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

Fix arena.impure.lisp on -sb-unicode.

Browse source
This commit is contained in:
Stas Boukarev 2023-01-05 19:43:09 +03:00
parent e0dba852df
commit 1162dd014e
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/arena.impure.lisp
View file

@ -396,8 +396,13 @@
(member ,(complex (coerce (random 10) 'single-float)
(coerce (- (random 10)) 'single-float))
(goo)
#\thumbs_up_sign)
(or stream (member #\thumbs_down_sign :hello))
#+sb-unicode
#\thumbs_up_sign
#-sb-unicode
#\a)
(or stream (member :hello
#+sb-unicode #\thumbs_down_sign
#-sb-unicode #\B))
(array t (,(+ 10 (random 10))))))
(defun show-cache-counts ()