From a90e2e0312fbaf5ebea1359d3c61efb35d1e7adc Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 17 Jul 1992 16:03:41 +0000
Subject: [PATCH] Changed default base file name for load-foreign to be the
 name used to run lisp, and not "lisp".

---
 code/foreign.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/foreign.lisp b/code/foreign.lisp
index 215e77051..57245c217 100644
--- a/code/foreign.lisp
+++ b/code/foreign.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/foreign.lisp,v 1.11 1992/03/04 18:15:41 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.12 1992/07/17 16:03:41 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -166,7 +166,9 @@
 
 (defun load-foreign (files &key
 			   (libraries '("-lc"))
-			   (base-file "path:lisp")
+			   (base-file
+			    (merge-pathnames *command-line-utility-name*
+					     "path:"))
 			   (env ext:*environment-list*))
   "Load-foreign loads a list of C object files into a running Lisp.  The files
   argument should be a single file or a list of files.  The files may be
-- 
GitLab