common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix make-target-contrib on Windows
Some checks are pending
CL-host / sbcl (push) Waiting to run
Details
CL-host / compare-xc-host-fasls (ccl, false) (push) Blocked by required conditions
Details
CL-host / compare-xc-host-fasls (clisp, false) (push) Blocked by required conditions
Details
CL-host / ecl (push) Waiting to run
Details
CL-host / clisp (push) Waiting to run
Details
CL-host / ccl (push) Waiting to run
Details
CL-host / cmucl (push) Waiting to run
Details
CL-host / compare-xc-host-fasls (cmucl, false) (push) Blocked by required conditions
Details
CL-host / compare-xc-host-fasls (self, false) (push) Blocked by required conditions
Details
Linux arm / build (push) Waiting to run
Details
Linux arm64 / build () (push) Waiting to run
Details
Linux qemu / build (ppc64le) (push) Waiting to run
Details
Linux qemu / build (riscv64) (push) Waiting to run
Details
Linux / build (x86, --with-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86, --without-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return, sse4) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86-64, --without-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86-64, --without-sb-unicode, ) (push) Waiting to run
Details
Linux / build (x86, --without-sb-unicode, ) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-fasteval --without-sb-eval --with-nonstop-foreign-call, fasteval) (push) Waiting to run
Details
Mac / build (arm64, --with-mark-region-gc --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (arm64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (x86-64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Windows arm64 / build (arm64, clang-aarch64, clangarm64) (push) Waiting to run
Details
Windows / build (x86-64, ucrt-x86_64, ucrt64) (push) Waiting to run
Details

Browse source
This commit is contained in:
Stas Boukarev 2026-09-03 02:14:07 +03:00
parent 61c92ca20a
commit a7922782cf
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
contrib/make-contrib.lisp
View file

@ -152,19 +152,21 @@
(push c wcu-warnings)))))
(with-compilation-unit ()
(loop for (generated-p stem) in (flattened-sources)
do (let* ((output (let ((name (format nil "~A~A.fasl" objdir stem)))
(ensure-directories-exist name)
name))
(fasl
(if (string= (pathname-type stem) "fasl")
stem
(multiple-value-bind (output warnings errors)
(compile-file (logicalize stem generated-p)
:output-file output)
(when (or warnings errors) (sb-sys:os-exit 1))
output))))
(fasls fasl)
(load fasl)))))
do (let* ((output (let ((name (if (pathnamep stem)
stem
(merge-pathnames objdir stem))))
(ensure-directories-exist name)
name))
(fasl
(if (string= (pathname-type stem) "fasl")
stem
(multiple-value-bind (output warnings errors)
(compile-file (logicalize stem generated-p)
:output-file output)
(when (or warnings errors) (sb-sys:os-exit 1))
output))))
(fasls fasl)
(load fasl)))))
;; Deferred warnings occur *after* exiting the W-C-U body.
;; See also lp#1078460 - "unknown variable" is not really ever resolved.
(when wcu-warnings (sb-sys:os-exit 1)))