511 |
(t (setq dir "."))) |
(t (setq dir "."))) |
512 |
(setq na (namestring |
(setq na (namestring |
513 |
(make-pathname :name name :type (pathname-type(first args))))) |
(make-pathname :name name :type (pathname-type(first args))))) |
|
|
|
514 |
#+(or dos winnt) |
#+(or dos winnt) |
515 |
(format nil "~a ~a ~a -c -I~a -w ~a -o ~a" |
(format nil "~a ~a ~a -c -w ~a -o ~a" |
516 |
*cc* |
*cc* |
517 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
518 |
(case *speed* |
(case *speed* |
519 |
(3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4") |
(3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4") |
520 |
(2 "-O") (t "")) |
(2 "-O") (t "")) |
|
dir |
|
521 |
(namestring (make-pathname :type "c" :defaults (first args))) |
(namestring (make-pathname :type "c" :defaults (first args))) |
522 |
(namestring (make-pathname :type "o" :defaults (first args))) |
(namestring (make-pathname :type "o" :defaults (first args))) |
523 |
) |
) |
524 |
|
|
|
|
|
|
|
|
525 |
#-(or dos winnt) |
#-(or dos winnt) |
526 |
(format nil "(cd ~a ;~a ~a ~a -c ~a ~a)" |
(format nil "(cd ~a ;~a ~a ~a -c ~a ~a)" |
527 |
dir *cc* |
dir *cc* |