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 " "") |
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 " "") |