Skip to content
Snippets Groups Projects
Commit 80912efa authored by ram's avatar ram
Browse files

Changed to use search-lists instead of absolute pathnames for finding the

linker, etc.
parent fcd73703
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.6 1991/08/30 17:09:22 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.7 1991/08/30 17:23:40 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -175,8 +175,8 @@ ...@@ -175,8 +175,8 @@
(defun load-foreign (files &optional (defun load-foreign (files &optional
(libraries '("-lc")) (libraries '("-lc"))
(linker "/usr/misc/.cmucl/lib/load-foreign.csh") (linker "library:load-foreign.csh")
(base-file "/usr/misc/.cmucl/bin/lisp") (base-file "path:lisp")
(env ext:*environment-list*)) (env ext:*environment-list*))
"Load-foreign loads a list of C object files into a running Lisp. The "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 files argument should be a single file or a list of files. The files
...@@ -193,11 +193,12 @@ ...@@ -193,11 +193,12 @@
(let ((output-file (pick-temporary-file-name)) (let ((output-file (pick-temporary-file-name))
(symbol-table-file (pick-temporary-file-name)) (symbol-table-file (pick-temporary-file-name))
(error-output (make-string-output-stream))) (error-output (make-string-output-stream)))
(format t ";;; Running ~A...~%" linker) (format t ";;; Running ~A...~%" linker)
(force-output) (force-output)
(let ((proc (ext:run-program linker (let ((proc (ext:run-program linker
(list* (or *previous-linked-object-file* (list* (or *previous-linked-object-file*
base-file) (namestring (truename base-file)))
(format nil "~X" (format nil "~X"
*foreign-segment-free-pointer*) *foreign-segment-free-pointer*)
output-file output-file
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment