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
cmucl
cmucl
Commits
0bb2950b
Commit
0bb2950b
authored
Oct 27, 2014
by
Raymond Toy
Browse files
Minor tweaks for solaris.
parent
088e156b
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/code/unix.lisp
View file @
0bb2950b
...
...
@@ -215,9 +215,9 @@
(
def-alien-type
caddr-t
(
*
char
))
(
def-alien-type
ino-t
#+
(
or
linux
(
and
bsd
(
not
netbsd
)))
unsigned-long
#+
netbsd
u-int64-t
#+
alpha
unsigned-int
)
#+
alpha
unsigned-int
#-
(
or
alpha
netbsd
)
unsigned-long
)
(
def-alien-type
swblk-t
long
)
...
...
@@ -2363,7 +2363,9 @@
returns NIL and the errno."
(
with-alien
((
tv
(
struct
timeval
))
#-
(
or
svr4
netbsd
)
(
tz
(
struct
timezone
)))
(
syscall*
(
#+
netbsd
#-
netbsd
"gettimeofday"
"__gettimeofday50"
(
*
(
struct
timeval
))
#-
svr4
(
*
(
struct
timezone
)))
(
syscall*
(
#-
netbsd
"gettimeofday"
#+
netbsd
"__gettimeofday50"
(
*
(
struct
timeval
))
#-
svr4
(
*
(
struct
timezone
)))
(
values
T
(
slot
tv
'tv-sec
)
(
slot
tv
'tv-usec
)
...
...
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