/[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.21 by mjthomas, Wed Nov 24 08:01:22 2004 UTC revision 1.22 by camm, Fri Jan 14 01:54:20 2005 UTC
# Line 575  SYSTEM_SPECIAL_INIT Line 575  SYSTEM_SPECIAL_INIT
575      (setq na  (namestring      (setq na  (namestring
576                 (make-pathname :name name :type (pathname-type(first args)))))                 (make-pathname :name name :type (pathname-type(first args)))))
577     #+(or dos winnt)     #+(or dos winnt)
578        (format nil "~a -I~a ~a ~a -c -w ~a -o ~a"        (format nil "~a -I~a ~a ~a -c -w ~s -o ~s"
579                *cc*                *cc*
580                (concatenate 'string si::*system-directory* "../h")                (concatenate 'string si::*system-directory* "../h")
581                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
# Line 588  SYSTEM_SPECIAL_INIT Line 588  SYSTEM_SPECIAL_INIT
588                )                )
589    
590     #-(or dos winnt)     #-(or dos winnt)
591     (format nil  "~a -I~a ~a ~a -c '~a' -o '~a' ~a"     (format nil  "~a -I~a ~a ~a -c ~s -o ~s ~a"
592             *cc*             *cc*
593             (concatenate 'string si::*system-directory* "../h")             (concatenate 'string si::*system-directory* "../h")
594             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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