Skip to content
Snippets Groups Projects
Commit 0a0be2d3 authored by Robert Goldman's avatar Robert Goldman
Browse files

Merge branch 'iss37' into 'master'

Improve OS detection.

See merge request asdf/asdf!147
parents 0c0ac86a 2e366958
No related branches found
No related tags found
No related merge requests found
...@@ -41,7 +41,7 @@ keywords explicitly." ...@@ -41,7 +41,7 @@ keywords explicitly."
(defun os-unix-p () (defun os-unix-p ()
"Is the underlying operating system some Unix variant?" "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 () (defun os-windows-p ()
"Is the underlying operating system Microsoft Windows?" "Is the underlying operating system Microsoft Windows?"
...@@ -69,10 +69,10 @@ except on ABCL where it might change between FASL compilation and runtime." ...@@ -69,10 +69,10 @@ 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) (:os-genera . os-genera-p) (:os-oldmac . os-oldmac-p)
(:haiku . os-haiku-p) (:os-haiku . os-haiku-p)
(:mezzano . os-mezzano-p)) (:os-mezzano . os-mezzano-p))
:when (and (or (not o) (eq feature :os-macosx)) (funcall detect)) :when (and (or (not o) (eq feature :os-macosx) (eq feature :os-haiku)) (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*))
:finally :finally
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment