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

Diff of /gcl/cmpnew/cmpmain.lsp

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

revision 1.8 by camm, Sat Jun 22 21:35:23 2002 UTC revision 1.9 by mjthomas, Wed Jul 10 07:41:06 2002 UTC
# Line 511  SYSTEM_SPECIAL_INIT Line 511  SYSTEM_SPECIAL_INIT
511            (t (setq dir ".")))            (t (setq dir ".")))
512       (setq na  (namestring       (setq na  (namestring
513                  (make-pathname :name name :type (pathname-type(first args)))))                  (make-pathname :name name :type (pathname-type(first args)))))
   
514     #+(or dos winnt)     #+(or dos winnt)
515        (format nil "~a ~a ~a -c -I~a -w ~a -o ~a"        (format nil "~a ~a ~a -c -w ~a -o ~a"
516                *cc*                *cc*
517                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
518                (case *speed*                (case *speed*
519                      (3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4")                      (3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4")
520                      (2 "-O") (t ""))                      (2 "-O") (t ""))
               dir  
521                (namestring (make-pathname  :type "c" :defaults (first args)))                (namestring (make-pathname  :type "c" :defaults (first args)))
522                (namestring (make-pathname  :type "o" :defaults (first args)))                (namestring (make-pathname  :type "o" :defaults (first args)))
523                )                )
524    
   
                 
525     #-(or dos winnt)     #-(or dos winnt)
526     (format nil  "(cd ~a ;~a ~a ~a -c ~a ~a)"     (format nil  "(cd ~a ;~a ~a ~a -c ~a ~a)"
527             dir *cc*             dir *cc*

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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