531 |
(setq na (namestring |
(setq na (namestring |
532 |
(make-pathname :name name :type (pathname-type(first args))))) |
(make-pathname :name name :type (pathname-type(first args))))) |
533 |
#+(or dos winnt) |
#+(or dos winnt) |
534 |
(format nil "~a ~a ~a -c -w ~a -o ~a" |
(format nil "~a -I~a ~a ~a -c -w ~a -o ~a" |
535 |
*cc* |
*cc* |
536 |
|
(concatenate 'string si::*system-directory* "../h") |
537 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
538 |
(case *speed* |
(case *speed* |
539 |
(3 *opt-three* ) |
(3 *opt-three* ) |
547 |
) |
) |
548 |
|
|
549 |
#-(or dos winnt) |
#-(or dos winnt) |
550 |
(format nil "(cd ~a ;~a ~a ~a -c ~a ~a)" |
(format nil "(cd ~a ;~a -I~a ~a ~a -c ~a ~a)" |
551 |
dir *cc* |
dir *cc* |
552 |
|
(concatenate 'string si::*system-directory* "../h") |
553 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
554 |
; (case *speed* |
; (case *speed* |
555 |
; (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4") |
; (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4") |
751 |
(format st " return 0;~%") |
(format st " return 0;~%") |
752 |
(format st "}~%~%"))) |
(format st "}~%~%"))) |
753 |
|
|
754 |
(system (format nil "~a ~a" *cc* tem)) |
(compiler-cc tem (concatenate 'string out ".o")) |
755 |
|
; (system (format nil "~a ~a" *cc* tem)) |
756 |
(delete-file tem) |
(delete-file tem) |
757 |
|
|
758 |
) |
) |
764 |
(setq init (format nil "init_~a.lsp" (pathname-name image))) |
(setq init (format nil "init_~a.lsp" (pathname-name image))) |
765 |
|
|
766 |
(system |
(system |
767 |
(format nil "~a ~a user-init.o ~a -L ~a ~a ~a" |
(format nil "~a ~a user-init.o ~a -L~a ~a ~a" |
768 |
*ld* |
*ld* |
769 |
raw |
raw |
770 |
(let ((sfiles "")) |
(let ((sfiles "")) |