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: