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 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
(defun load-foreign (files &optional
(libraries '("-lc"))
(linker "/usr/misc/.cmucl/lib/load-foreign.csh")
(base-file "/usr/misc/.cmucl/bin/lisp")
(linker "library:load-foreign.csh")
(base-file "path:lisp")
(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
......@@ -193,11 +193,12 @@
(let ((output-file (pick-temporary-file-name))
(symbol-table-file (pick-temporary-file-name))
(error-output (make-string-output-stream)))
(format t ";;; Running ~A...~%" linker)
(force-output)
(let ((proc (ext:run-program linker
(list* (or *previous-linked-object-file*
base-file)
(namestring (truename base-file)))
(format nil "~X"
*foreign-segment-free-pointer*)
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