X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-util.lisp;h=cdc422c83de1b7c34244bd7e4c885e83f7b8e8fb;hb=0a15b6bbf9d5d3a64b5ac08bb96b6e5ec221d2ae;hp=f9ca05f0338013919b181a24a63f54e61bb6e3b7;hpb=1809389def0b7147e354acce1316cfa109091b51;p=sbcl.git

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))))