/[gcl]/gcl/cmpnew/gcl_cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC revision 1.4 by mjthomas, Fri Oct 10 05:14:03 2003 UTC
# Line 592  SYSTEM_SPECIAL_INIT Line 592  SYSTEM_SPECIAL_INIT
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
# Line 602  SYSTEM_SPECIAL_INIT Line 612  SYSTEM_SPECIAL_INIT
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26