X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=550d872fe41688521836c8c6fe86846e74f307a8;hb=a18f0a95bc9a457e4d2d00c702b746f29c2662b1;hp=8ae7caa4bbb2ce679ce59766b4eb8096534fb1de;hpb=9c79328c5c2bb1233089126fe9c69af69435b837;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 8ae7caa..550d872 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -49,13 +49,7 @@
 
 (defun posix-environ ()
   "Return the Unix environment (\"man environ\") as a list of SIMPLE-STRINGs."
-  (let ((reversed-result nil))
-    (dotimes (i most-positive-fixnum (error "can't happen"))
-      (declare (type index i))
-      (let ((env-item (deref environ i)))
-	(if env-item
-            (push env-item reversed-result)
-	    (return (nreverse reversed-result)))))))
+  (c-strings->string-list environ))
 
 ;;; Convert as best we can from a SBCL representation of a Unix
 ;;; environment to a CMU CL representation.