[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Fix test
From:       Douglas Katzman via Sbcl-commits <sbcl-commits () lists ! sourceforge ! net>
Date:       2019-09-22 2:37:25
Message-ID: 1569119846.242612.6229 () sfp-scm-6 ! v30 ! lw ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  f36fe4433bf5a83923e20974c86b02c639cc1a1c (commit)
      from  b2944639b935d736736024ef6fa51e87b4b32bfb (commit)

- Log -----------------------------------------------------------------
commit f36fe4433bf5a83923e20974c86b02c639cc1a1c
Author: Douglas Katzman <dougk@google.com>
Date:   Sat Sep 21 22:31:45 2019 -0400

    Fix test
---
 tests/disassem.impure.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/disassem.impure.lisp b/tests/disassem.impure.lisp
index dd1def593..fc5d0ad25 100644
--- a/tests/disassem.impure.lisp
+++ b/tests/disassem.impure.lisp
@@ -8,8 +8,9 @@
 
 (with-test (:name :disassemble-sap)
   (with-output-to-string (s)
-    (sb-c:dis (sb-sys:int-sap (- (sb-kernel:get-lisp-obj-address #'car)
-                                 sb-vm:fun-pointer-lowtag))
+    (sb-c:dis (sb-sys:int-sap (+ (- (sb-kernel:get-lisp-obj-address #'car)
+                                    sb-vm:fun-pointer-lowtag)
+                                 (* 2 sb-vm:n-word-bytes)))
               12
               s)))
 

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


hooks/post-receive
-- 
SBCL


_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]