Commit d0105f72 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Francois-Rene Rideau
Browse files

detect-os: add haiku os

parent 5ea2656a
...@@ -55,13 +55,18 @@ keywords explicitly." ...@@ -55,13 +55,18 @@ keywords explicitly."
"Is the underlying operating system an (emulated?) MacOS 9 or earlier?" "Is the underlying operating system an (emulated?) MacOS 9 or earlier?"
(featurep :mcl)) (featurep :mcl))
(defun os-haiku-p ()
"Is the underlying operating system Haiku?"
(featurep :haiku))
(defun detect-os () (defun detect-os ()
"Detects the current operating system. Only needs be run at compile-time, "Detects the current operating system. Only needs be run at compile-time,
except on ABCL where it might change between FASL compilation and runtime." except on ABCL where it might change between FASL compilation and runtime."
(loop* :with o (loop* :with o
:for (feature . detect) :in '((:os-unix . os-unix-p) (:os-macosx . os-macosx-p) :for (feature . detect) :in '((:os-unix . os-unix-p) (:os-macosx . os-macosx-p)
(:os-windows . os-windows-p) (:os-windows . os-windows-p)
(:genera . os-genera-p) (:os-oldmac . os-oldmac-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)) :when (and (or (not o) (eq feature :os-macosx)) (funcall detect))
:do (setf o feature) (pushnew feature *features*) :do (setf o feature) (pushnew feature *features*)
:else :do (setf *features* (remove feature *features*)) :else :do (setf *features* (remove feature *features*))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment