From 6f9469ddc38dc4d25b0fcc3988d55a9dbef6e2b8 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 20 Nov 2011 14:20:11 +0200 Subject: [PATCH] oops, SB-EXT:DYNAMIC-SPACE-SIZE broke a test (Package lock violation.) --- tests/bit-vector.impure-cload.lisp | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/tests/bit-vector.impure-cload.lisp b/tests/bit-vector.impure-cload.lisp index 8eab49a..3a92a34 100644 --- a/tests/bit-vector.impure-cload.lisp +++ b/tests/bit-vector.impure-cload.lisp @@ -78,15 +78,8 @@ (test-small-bit-vectors) -(eval-when (:compile-toplevel :load-toplevel :execute) - (defun dynamic-space-size () - #+gencgc - (- sb-vm:dynamic-space-end sb-vm:dynamic-space-start) - #-gencgc - (- sb-vm:dynamic-0-space-end sb-vm:dynamic-0-space-start))) - ;; except on machines where the arrays won't fit into the dynamic space. -#+#.(cl:if (cl:> (cl-user::dynamic-space-size) +#+#.(cl:if (cl:> (sb-ext:dynamic-space-size) (cl:truncate (cl:1- cl:array-dimension-limit) sb-vm:n-word-bits)) '(and) -- 1.7.10.4