592 |
) |
) |
593 |
) |
) |
594 |
) |
) |
595 |
|
|
596 |
|
; Windows short form paths may contain tilde (~) which conflicts with |
597 |
|
; format directives. |
598 |
|
#+winnt (defun prep-win-path-acc ( s acc) |
599 |
|
(let ((pos (search "\~" s))) |
600 |
|
(if pos |
601 |
|
(let ((start (subseq s 0 (1+ pos))) |
602 |
|
(finish (subseq s (1+ pos)))) |
603 |
|
(prep-win-path-acc finish (concatenate 'string acc start "~"))) |
604 |
|
(concatenate 'string acc s)))) |
605 |
|
#+winnt (defun prep-win-path ( s ) (prep-win-path-acc s "")) |
606 |
|
|
607 |
(defun compiler-cc (c-pathname o-pathname ) |
(defun compiler-cc (c-pathname o-pathname ) |
608 |
(safe-system |
(safe-system |
612 |
#+irix5 (compiler-command c-pathname o-pathname ) |
#+irix5 (compiler-command c-pathname o-pathname ) |
613 |
#+vax "~a ~@[~*-O ~]-S -I. -w ~a ; as -J -W -o ~A ~A" |
#+vax "~a ~@[~*-O ~]-S -I. -w ~a ; as -J -W -o ~A ~A" |
614 |
#+(or system-v e15 dgux sgi ) "~a ~@[~*-O ~]-c -I. ~a 2> /dev/null" |
#+(or system-v e15 dgux sgi ) "~a ~@[~*-O ~]-c -I. ~a 2> /dev/null" |
615 |
(compiler-command c-pathname o-pathname )) |
#+winnt (prep-win-path (compiler-command c-pathname o-pathname )) |
616 |
|
#-winnt (compiler-command c-pathname o-pathname) |
617 |
|
) |
618 |
*cc* |
*cc* |
619 |
(if (or (= *speed* 2) (= *speed* 3)) t nil) |
(if (or (= *speed* 2) (= *speed* 3)) t nil) |
620 |
(namestring c-pathname) |
(namestring c-pathname) |