507 |
(defvar *cc* "cc") |
(defvar *cc* "cc") |
508 |
(defvar *ld* "ld") |
(defvar *ld* "ld") |
509 |
(defvar *ld-libs* "ld-libs") |
(defvar *ld-libs* "ld-libs") |
510 |
|
(defvar *opt-three* "") |
511 |
|
(defvar *opt-two* "") |
512 |
(defvar *init-lsp* "init-lsp") |
(defvar *init-lsp* "init-lsp") |
513 |
|
|
514 |
(defvar *use-buggy* nil) |
(defvar *use-buggy* nil) |
538 |
(format nil "(cd ~a ;~a ~a ~a -c ~a ~a)" |
(format nil "(cd ~a ;~a ~a ~a -c ~a ~a)" |
539 |
dir *cc* |
dir *cc* |
540 |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
(if (and (boundp '*c-debug*) *c-debug*) " -g " "") |
541 |
|
; (case *speed* |
542 |
|
; (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4") |
543 |
|
; (2 "-O") (t "")) |
544 |
(case *speed* |
(case *speed* |
545 |
(3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4") |
(3 *opt-three* ) |
546 |
(2 "-O") (t "")) |
(2 *opt-two*) |
547 |
|
(t "")) |
548 |
na |
na |
549 |
(prog1 |
(prog1 |
550 |
#+aix3 |
#+aix3 |