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
Eric Timmons
asdf
Commits
0a0be2d3
Commit
0a0be2d3
authored
Mar 21, 2021
by
Robert Goldman
Browse files
Merge branch 'iss37' into 'master'
Improve OS detection. See merge request
asdf/asdf!147
parents
0c0ac86a
2e366958
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/os.lisp
View file @
0a0be2d3
...
...
@@ -41,7 +41,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?"
...
...
@@ -69,10 +69,10 @@ 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
)
(
:mezzano
.
os-mezzano-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
)
(
:
os-
mezzano
.
os-mezzano-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
...
...
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