Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Mark Evenson
asdf
Commits
d0105f72
Commit
d0105f72
authored
Sep 06, 2016
by
Daniel Kochmański
Committed by
Francois-Rene Rideau
Sep 07, 2016
Browse files
detect-os: add haiku os
parent
5ea2656a
Changes
1
Show whitespace changes
Inline
Side-by-side
uiop/os.lisp
View file @
d0105f72
...
...
@@ -55,13 +55,18 @@ keywords explicitly."
"Is the underlying operating system an (emulated?) MacOS 9 or earlier?"
(
featurep
:mcl
))
(
defun
os-haiku-p
()
"Is the underlying operating system Haiku?"
(
featurep
:haiku
))
(
defun
detect-os
()
"Detects the current operating system. Only needs be run at compile-time,
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
))
(
:genera
.
os-genera-p
)
(
:os-oldmac
.
os-oldmac-p
)
(
:haiku
.
os-haiku-p
))
:when
(
and
(
or
(
not
o
)
(
eq
feature
:os-macosx
))
(
funcall
detect
))
:do
(
setf
o
feature
)
(
pushnew
feature
*features*
)
:else
:do
(
setf
*features*
(
remove
feature
*features*
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment