projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.24.38: improve test scripts
[sbcl.git]
/
tests
/
dynamic-extent.impure.lisp
diff --git
a/tests/dynamic-extent.impure.lisp
b/tests/dynamic-extent.impure.lisp
index
9aba2db
..
7867bae
100644
(file)
--- a/
tests/dynamic-extent.impure.lisp
+++ b/
tests/dynamic-extent.impure.lisp
@@
-129,7
+129,7
@@
(defun-with-dx dx-value-cell (x)
;; Not implemented everywhere, yet.
(defun-with-dx dx-value-cell (x)
;; Not implemented everywhere, yet.
- #+(or x86 x86-64 mips)
+ #+(or x86 x86-64 mips hppa)
(let ((cell x))
(declare (sb-int:truly-dynamic-extent cell))
(flet ((f ()
(let ((cell x))
(declare (sb-int:truly-dynamic-extent cell))
(flet ((f ()
@@
-463,7
+463,7
@@
(defvar *a-cons* (cons nil nil))
(defvar *a-cons* (cons nil nil))
-#+(or x86 x86-64 alpha ppc sparc mips)
+#+(or x86 x86-64 alpha ppc sparc mips hppa)
(progn
(assert-no-consing (dxclosure 42))
(assert-no-consing (dxlength 1 2 3))
(progn
(assert-no-consing (dxclosure 42))
(assert-no-consing (dxlength 1 2 3))