master: Adjust a test for windows

stassats via Sbcl-commits <[email protected]> Thu, 09 Jul 2026 18:10:23 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  7cd3645c34fb1fc235f5da3191652ac9778b080f (commit)
      from  acf8f1e89317b44e1db71487d43cc89a9dab63a6 (commit)

- Log -----------------------------------------------------------------
commit 7cd3645c34fb1fc235f5da3191652ac9778b080f
Author: Stas Boukarev <[email protected]>
Date:   Thu Jul 9 21:10:01 2026 +0300

    Adjust a test for windows
---
 tests/arm64-codegen.impure.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/arm64-codegen.impure.lisp b/tests/arm64-codegen.impure.lisp
index a80c0a156..811188966 100644
--- a/tests/arm64-codegen.impure.lisp
+++ b/tests/arm64-codegen.impure.lisp
@@ -8,7 +8,7 @@
                   (ctu:disassembly-lines
                    `(lambda (i)
                       (declare (optimize (debug 0)))
-                      (let ((a (alien-funcall (extern-alien "f" (function (* ,type))))))
+                      (let ((a (alien-funcall (extern-alien "f" (function (* (unsigned ,type)))))))
                         (deref a (sb-ext:truly-the sb-int:index i))))))
                  (look-for
                   (format nil ", LSL #~D]" left-shift)))
@@ -20,6 +20,6 @@
                     1)
                (error "~{~a~%~}" lines)
                ))))
-    (try 'unsigned-short 1)
-    (try 'unsigned-int   2)
-    (try 'unsigned-long  3)))
+    (try 16 1)
+    (try 32 2)
+    (try 64 3)))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL