tests/packed-varints.pure.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; While most of SBCL is derived from the CMU CL system, the test
   5 ;;;; files (like this one) were written from scratch after the fork
   6 ;;;; from CMU CL.
   7 ;;;;
   8 ;;;; This software is in the public domain and is provided with
   9 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  10 ;;;; more information.
  11
  12 #+(and x86-64 immobile-space sb-unicode (not interpreter)) ; missing symbols otherwise
  13 (with-test (:name :bignum-unpacker-no-consing)
  14   (flet ((try ()
  15            (let ((result 0)
  16                  ;; This happens to be a fairly large bignum (>2500 bits)
  17                  (b (sb-vm::%code-fixups
  18                      (sb-kernel:fun-code-header
  19                       #'sb-unicode::line-break-annotate))))
  20              (sb-int:do-packed-varints (int b)
  21                (setq result (logxor result int)))
  22              result)))
  23     (ctu:assert-no-consing (try))))