581 |
) |
) |
582 |
) |
) |
583 |
) |
) |
584 |
|
|
585 |
|
#+winnt (defun prep-win-path-acc ( s acc) |
586 |
|
(let ((pos (search "\~" s))) |
587 |
|
(if pos |
588 |
|
(let ((start (subseq s 0 (1+ pos))) |
589 |
|
(finish (subseq s (1+ pos)))) |
590 |
|
(prep-win-path-acc finish (concatenate 'string acc start "~"))) |
591 |
|
(concatenate 'string acc s)))) |
592 |
|
#+winnt (defun prep-win-path ( s ) (prep-win-path-acc s "")) |
593 |
|
|
594 |
(defun compiler-cc (c-pathname o-pathname ) |
(defun compiler-cc (c-pathname o-pathname ) |
595 |
(safe-system |
(safe-system |
599 |
#+irix5 (compiler-command c-pathname o-pathname ) |
#+irix5 (compiler-command c-pathname o-pathname ) |
600 |
#+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" |
601 |
#+(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" |
602 |
(compiler-command c-pathname o-pathname )) |
#+winnt (prep-win-path (compiler-command c-pathname o-pathname )) |
603 |
|
#-winnt (compiler-command c-pathname o-pathname) |
604 |
|
) |
605 |
*cc* |
*cc* |
606 |
(if (or (= *speed* 2) (= *speed* 3)) t nil) |
(if (or (= *speed* 2) (= *speed* 3)) t nil) |
607 |
(namestring c-pathname) |
(namestring c-pathname) |