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 sb-manual build when SBCL_CONTRIB_BLOCKLIST is nonempty

Browse source
This commit is contained in:
Douglas Katzman 2026-09-02 16:07:22 +00:00
parent 087cb81385
commit 3dfe0b3e65
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
contrib/make-contrib.lisp
View file

@ -152,14 +152,17 @@
(push c wcu-warnings)))))
(with-compilation-unit ()
(loop for (generated-p stem) in (flattened-sources)
do (let ((fasl
(if (string= (pathname-type stem) "fasl")
stem
(multiple-value-bind (output warnings errors)
(compile-file (logicalize stem generated-p)
:output-file (format nil "~A~A.fasl" objdir stem))
(when (or warnings errors) (sb-sys:os-exit 1))
output))))
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)))))
;; Deferred warnings occur *after* exiting the W-C-U body.