547 |
(setq na (namestring |
(setq na (namestring |
548 |
(make-pathname :name name :type (pathname-type(first args))))) |
(make-pathname :name name :type (pathname-type(first args))))) |
549 |
#+(or dos winnt) |
#+(or dos winnt) |
550 |
(format nil "~a -I~a ~a ~a -c -w ~a -o ~a" |
(format nil "~a -I~a ~a ~a -c -w ~s -o ~s" |
551 |
*cc* |
*cc* |
552 |
(concatenate 'string si::*system-directory* "../h") |
(concatenate 'string si::*system-directory* "../h") |
553 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
560 |
) |
) |
561 |
|
|
562 |
#-(or dos winnt) |
#-(or dos winnt) |
563 |
(format nil "~a -I~a ~a ~a -c '~a' -o '~a' ~a" |
(format nil "~a -I~a ~a ~a -c ~s -o ~s ~a" |
564 |
*cc* |
*cc* |
565 |
(concatenate 'string si::*system-directory* "../h") |
(concatenate 'string si::*system-directory* "../h") |
566 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
826 |
(setq sfiles (concatenate 'string sfiles " " (namestring tem))))) |
(setq sfiles (concatenate 'string sfiles " " (namestring tem))))) |
827 |
sfiles) |
sfiles) |
828 |
si::*system-directory* |
si::*system-directory* |
829 |
#+gnu-ld (format nil "-Wl,-Map ~a" (namestring map)) |
#+gnu-ld (format nil "-Wl,-Map ~a" (namestring map)) #-gnu-ld "" |
830 |
(let* ((par (namestring (make-pathname :directory '(:parent)))) |
(let* ((par (namestring (make-pathname :directory '(:parent)))) |
831 |
(i (concatenate 'string " " par)) |
(i (concatenate 'string " " par)) |
832 |
(j (concatenate 'string " " si::*system-directory* par))) |
(j (concatenate 'string " " si::*system-directory* par))) |