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