mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
Haiku ASDF fix
Some checks failed
CL-host / ecl (push) Waiting to run
CL-host / clisp (push) Waiting to run
CL-host / ccl (push) Waiting to run
CL-host / cmucl (push) Waiting to run
CL-host / sbcl (push) Waiting to run
CL-host / compare-xc-host-fasls (ccl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (clisp, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (cmucl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (self, false) (push) Blocked by required conditions
Linux / build (x86, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-unicode, ) (push) Waiting to run
Linux / build (x86-64, --with-mark-region-gc) (push) Waiting to run
Linux / build (x86-64, --with-sb-fasteval --without-sb-eval, fasteval) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread, sse4) (push) Waiting to run
Linux / build (x86-64, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --without-sb-unicode, ) (push) Waiting to run
Mac / build (--without-sb-thread, x86-64) (push) Waiting to run
Mac / build (arm64, --with-mark-region-gc) (push) Waiting to run
Mac / build (arm64, --with-sb-thread) (push) Waiting to run
Mac / build (x86-64, --with-mark-region-gc) (push) Waiting to run
Mac / build (x86-64, --with-sb-thread) (push) Waiting to run
Windows / build (push) Waiting to run
Linux qemu / ppc64le (push) Failing after 0s
Some checks failed
CL-host / ecl (push) Waiting to run
CL-host / clisp (push) Waiting to run
CL-host / ccl (push) Waiting to run
CL-host / cmucl (push) Waiting to run
CL-host / sbcl (push) Waiting to run
CL-host / compare-xc-host-fasls (ccl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (clisp, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (cmucl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (self, false) (push) Blocked by required conditions
Linux / build (x86, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-unicode, ) (push) Waiting to run
Linux / build (x86-64, --with-mark-region-gc) (push) Waiting to run
Linux / build (x86-64, --with-sb-fasteval --without-sb-eval, fasteval) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread, sse4) (push) Waiting to run
Linux / build (x86-64, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --without-sb-unicode, ) (push) Waiting to run
Mac / build (--without-sb-thread, x86-64) (push) Waiting to run
Mac / build (arm64, --with-mark-region-gc) (push) Waiting to run
Mac / build (arm64, --with-sb-thread) (push) Waiting to run
Mac / build (x86-64, --with-mark-region-gc) (push) Waiting to run
Mac / build (x86-64, --with-sb-thread) (push) Waiting to run
Windows / build (push) Waiting to run
Linux qemu / ppc64le (push) Failing after 0s
This commit is contained in:
parent
8eaf1ce48b
commit
621f882352
|
|
@ -1833,7 +1833,7 @@ keywords explicitly."
|
|||
|
||||
(defun os-unix-p ()
|
||||
"Is the underlying operating system some Unix variant?"
|
||||
(or (featurep '(:or :unix :cygwin)) (os-macosx-p)))
|
||||
(or (featurep '(:or :unix :cygwin :haiku)) (os-macosx-p)))
|
||||
|
||||
(defun os-windows-p ()
|
||||
"Is the underlying operating system Microsoft Windows?"
|
||||
|
|
@ -1857,9 +1857,9 @@ except on ABCL where it might change between FASL compilation and runtime."
|
|||
(loop* :with o
|
||||
:for (feature . detect) :in '((:os-unix . os-unix-p) (:os-macosx . os-macosx-p)
|
||||
(:os-windows . os-windows-p)
|
||||
(:genera . os-genera-p) (:os-oldmac . os-oldmac-p)
|
||||
(:haiku . os-haiku-p))
|
||||
:when (and (or (not o) (eq feature :os-macosx)) (funcall detect))
|
||||
(:os-genera . os-genera-p) (:os-oldmac . os-oldmac-p)
|
||||
(:os-haiku . os-haiku-p))
|
||||
:when (and (or (not o) (eq feature :os-macosx) (eq feature :os-haiku)) (funcall detect))
|
||||
:do (setf o feature) (pushnew feature *features*)
|
||||
:else :do (setf *features* (remove feature *features*))
|
||||
:finally
|
||||
|
|
|
|||
Loading…
Reference in a new issue