- (= 0 (run-shell-command "gcc ~A -o ~S -c ~S"
- (concatenate-strings
- (append
- (list "-fPIC")
- (when (slot-value c 'optimization)
- (list (format nil "-O~A" (slot-value c 'optimization))))
- (loop
- for symbol in (slot-value c 'definitions)
- collect (format nil "-D~A" symbol))
- (loop
- for path in (slot-value c 'include-paths)
- collect (format nil "-I~A" path))
- (slot-value c 'cflags))
- #\sp)
- (unix-name (car (output-files op c)))
+ (= 0 (run-shell-command "gcc ~A~{ ~A~} -o ~S -c ~S"
+ #-win32 "-fPIC"
+ #+win32 "-DBUILD_DLL"
+ (nconc
+ (when (slot-value c 'optimization)
+ (list (format nil "-O~A" (slot-value c 'optimization))))
+ (loop
+ for symbol in (slot-value c 'definitions)
+ collect (format nil "-D~A" symbol))
+ (loop
+ for path in (slot-value c 'include-paths)
+ collect (format nil "-I~A" path))
+ (slot-value c 'cflags))
+ (unix-name (first (output-files op c)))