700 |
|
|
701 |
) |
) |
702 |
|
|
703 |
(defun link (files image &optional post &aux raw init) |
(defun link (files image &optional post extra-libs &aux raw init) |
704 |
|
|
705 |
(make-user-init files "user-init") |
(make-user-init files "user-init") |
706 |
(setq raw (format nil "raw_~a" (pathname-name image))) |
(setq raw (format nil "raw_~a" (pathname-name image))) |
707 |
(setq init (format nil "init_~a.lsp" (pathname-name image))) |
(setq init (format nil "init_~a.lsp" (pathname-name image))) |
708 |
|
|
709 |
(system |
(system |
710 |
(format nil "~a ~a user-init.o ~a -L ~a ~a" |
(format nil "~a ~a user-init.o ~a -L ~a ~a ~a" |
711 |
*ld* |
*ld* |
712 |
raw |
raw |
713 |
(let ((sfiles "")) |
(let ((sfiles "")) |
716 |
(setq sfiles (concatenate 'string sfiles " " tem)))) |
(setq sfiles (concatenate 'string sfiles " " tem)))) |
717 |
sfiles) |
sfiles) |
718 |
si::*system-directory* |
si::*system-directory* |
719 |
*ld-libs*)) |
*ld-libs* |
720 |
|
(if (stringp extra-libs) extra-libs ""))) |
721 |
|
|
722 |
(delete-file "user-init.o") |
(delete-file "user-init.o") |
723 |
|
|