projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix test-case for bug-511072 in packages.impure.lisp
[sbcl.git]
/
tests
/
bit-vector.impure-cload.lisp
diff --git
a/tests/bit-vector.impure-cload.lisp
b/tests/bit-vector.impure-cload.lisp
index
8eab49a
..
3a92a34
100644
(file)
--- a/
tests/bit-vector.impure-cload.lisp
+++ b/
tests/bit-vector.impure-cload.lisp
@@
-78,15
+78,8
@@
(test-small-bit-vectors)
(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.
;; 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)
(cl:truncate (cl:1- cl:array-dimension-limit)
sb-vm:n-word-bits))
'(and)