diff options
Diffstat (limited to 'src/compiler/generic/utils.lisp')
-rw-r--r-- | src/compiler/generic/utils.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp index 33a1840b9..118ba1b60 100644 --- a/src/compiler/generic/utils.lisp +++ b/src/compiler/generic/utils.lisp @@ -441,7 +441,7 @@ ;;; Convert # of "big digits" (= words, sometimes called "limbs") to a header value. (defmacro bignum-header-for-length (n) - (logior (ash n n-widetag-bits) bignum-widetag)) + `(logior (ash ,n n-widetag-bits) bignum-widetag)) (defmacro id-bits-offset () (let ((slot (get-dsd-index layout sb-kernel::id-word0))) |