From bf4e00feafce73b9a8c10b7d40e792228bb800c8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 30 Aug 1991 14:59:20 +0000
Subject: [PATCH] Moved PATH search list initialization to save, since that's
 where it's called.

---
 code/lispinit.lisp | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index e4e5b0099..b457a602e 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:
 
-- 
GitLab