From cbc84bf28014393a6c109bd21afc02d59335f359 Mon Sep 17 00:00:00 2001 From: Brian Jones Date: Sat, 19 Nov 2011 02:20:39 -0700 Subject: [PATCH] Converted bytes-consed-between-gcs to use native unsigned-long type instead of unsigned-byte 32 --- src/code/gc.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/gc.lisp b/src/code/gc.lisp index bc5c920..1f386cb 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -341,12 +341,12 @@ NIL as the pathname." "The amount of memory that will be allocated before the next garbage collection is initiated. This can be set with SETF." (sb!alien:extern-alien "bytes_consed_between_gcs" - (sb!alien:unsigned 32))) + sb!alien:unsigned-long)) (defun (setf bytes-consed-between-gcs) (val) (declare (type index val)) (setf (sb!alien:extern-alien "bytes_consed_between_gcs" - (sb!alien:unsigned 32)) + sb!alien:unsigned-long) val)) (declaim (inline maybe-handle-pending-gc)) -- 1.7.4.1