Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/code/run-program.lisp [9c7932] .. [a18f0a] Maximize Restore

  Switch to side-by-side view

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