X-Git-Url: http://git.boinkor.net/gitweb/sbcl.git/blobdiff_plain/898c92c45c812861f9e309ae1a5b5b3e7c33c01b..01b41fdd69d197da85f86a2e4f8971f3ef9dda82:/tests/test-util.lisp

diff --git a/tests/test-util.lisp b/tests/test-util.lisp
index f9ca05f..cdc422c 100644
--- a/tests/test-util.lisp
+++ b/tests/test-util.lisp
@@ -65,3 +65,8 @@
     (let ((*invoke-debugger-hook* *invoke-debugger-hook*))
       (enable-debugger)
       (invoke-debugger condition))))
+
+(defun test-env ()
+  (cons (format nil "SBCL_MACHINE_TYPE=~A" (machine-type))
+        (cons (format nil "SBCL_SOFTWARE_TYPE=~A" (software-type))
+              (posix-environ))))