diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index e4e5b0099e2d6600b97465cad99fe4d982669b46..b457a602e20dc4c238285a1a7fcfd6421b5b62bc 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.22 1991/08/30 14:29:05 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.23 1991/08/30 14:59:20 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -577,28 +577,6 @@
   (setf *task-data* (mach:mach-task_data))
   (setf *task-notify* (mach:mach-task_notify)))
 
-
-;;; Setup-path-search-list returns a list of the directories that are
-;;; in the unix path environment variable.  This is so that run-program
-;;; can be smarter about where to find a program to run.
-(defun setup-path-search-list ()
-  (let ((path (cdr (assoc :path ext::*environment-list*))))
-    (when path
-      (do* ((i 0 (1+ p))
-	    (p (position #\: path :start i)
-	       (position #\: path :start i))
-	    (pl ()))
-	   ((null p)
-	    (let ((s (subseq path i)))
-	      (if (string= s "")
-		  (push "default:" pl)
-		  (push (concatenate 'simple-string s "/") pl)))
-	    (nreverse pl))
-	(let ((s (subseq path i p)))
-	  (if (string= s "")
-	      (push "default:" pl)
-	      (push (concatenate 'simple-string s "/") pl)))))))
-
 
 ;;;; Miscellaneous external functions: