Err, cherry-pick the relevant benchmark fix commit.

antifuchs · May 3, 2011 · b26efbe · b26efbe
1 parent e72452d
commit b26efbe
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/lisp/sbcl.lisp b/lisp/sbcl.lisp
@@ -90,12 +90,14 @@
     implementation))
 
 (defun prepare-sbcl-environment ()
-  (remove-if (lambda (elt)
-               (member elt '("SBCL_HOME" "LC_CTYPE")
-                       :test #'string-equal))
+  (nconc 
+   (remove-if (lambda (elt)
+                (member elt '("SBCL_HOME" "LC_CTYPE" "LANGUAGE")
+                        :test #'string-equal))
              #+sbcl(sb-ext:posix-environ)
              #-sbcl()
-             :key (lambda (envl) (subseq envl 0 (position #\= envl)))))
+              :key (lambda (envl) (subseq envl 0 (position #\= envl))))
+   (list "LC_CTYPE=C")))
 
 (defun prepare-bench-sbcl-cmdline (impl arch shell-quote-p)
   `(,(format nil "~A" (shellquote (namestring (implementation-cached-file-name impl "sbcl")) shell-quote-p))