- (let ((code (sb-ext:process-exit-code
- (sb-ext:run-program
- "gcc"
- (append
- (let ((cf (sb-ext:posix-getenv "EXTRA_CFLAGS")))
- (when (plusp (length cf))
- (list cf)))
- (list "-o"
+ (let* ((cc (or (sb-ext:posix-getenv "CC")
+ ;; It might be nice to include a CONTINUE or
+ ;; USE-VALUE restart here, but ASDF seems to insist
+ ;; on handling the errors itself.
+ (error "The CC environment variable has not been set in SB-GROVEL. Since this variable should always be set during the SBCL build process, this might indicate an SBCL with a broken contrib installation.")))
+ (code (sb-ext:process-exit-code
+ (sb-ext:run-program
+ cc
+ (append
+ (split-cflags (sb-ext:posix-getenv "EXTRA_CFLAGS"))
+ #+(and linux largefile)
+ '("-D_LARGEFILE_SOURCE"
+ "-D_LARGEFILE64_SOURCE"
+ "-D_FILE_OFFSET_BITS=64")
+ (list "-o"