527 |
(format nil "~a ~a ~a -c -w ~a -o ~a" |
(format nil "~a ~a ~a -c -w ~a -o ~a" |
528 |
*cc* |
*cc* |
529 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
530 |
(case *speed* |
(case *speed* |
531 |
(3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4") |
(3 *opt-three* ) |
532 |
(2 "-O") (t "")) |
(2 *opt-two*) |
533 |
|
(t "")) |
534 |
|
; (case *speed* |
535 |
|
; (3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4") |
536 |
|
; (2 "-O") (t "")) |
537 |
(namestring (make-pathname :type "c" :defaults (first args))) |
(namestring (make-pathname :type "c" :defaults (first args))) |
538 |
(namestring (make-pathname :type "o" :defaults (first args))) |
(namestring (make-pathname :type "o" :defaults (first args))) |
539 |
) |
) |