<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
img {
max-width: 100%;
height: auto;
}
p.details {
font-style:italic;
color:#777
}
.footer p {
font-size:small;
color:#777
}
pre.commit-message {
white-space: pre-wrap;
}
.file-stats a {
text-decoration: none;
}
.file-stats .new-file {
color: #090;
}
.file-stats .deleted-file {
color: #B00;
}}
</style>
<body>
<div class='content'>
<h3>Raymond Toy pushed to branch rtoy-unix-core at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a></h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/426755590b5f728e1bd2fdb102fa556e9417fe44">42675559</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-05-16T21:59:29Z</i>
</div>
<pre class='commit-message'>Export unix-uname. Used on linux and solaris.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/c076d5501e7c12e8c9dcebbc30b117d0e9cc649d">c076d550</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-05-16T22:09:57Z</i>
</div>
<pre class='commit-message'>Support for netbsd. From Robert Swindells.</pre>
</li>
</ul>
<h4>2 changed files:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/code/exports.lisp
</a>
</li>
<li class='file-stats'>
<a href='#diff-1'>
src/code/unix.lisp
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/72afb878f276cef6b754ae2d5a0eff931bf457bc...c076d5501e7c12e8c9dcebbc30b117d0e9cc649d#diff-0'>
<strong>
src/code/exports.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/exports.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/exports.lisp
</span><span style="color: #aaaaaa">@@ -248,6 +248,10 @@
</span> "CLOSE-DIR"
"OPEN-DIR"
"READ-DIR"
<span style="color: #000000;background-color: #ddffdd">+
+ ;; linux-os, sunos-os.
+ "UNIX-UNAME"
+
</span> ;; filesys.lisp
"UNIX-GETPWUID"
</code></pre>
<br>
</li>
<li id='diff-1'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/72afb878f276cef6b754ae2d5a0eff931bf457bc...c076d5501e7c12e8c9dcebbc30b117d0e9cc649d#diff-1'>
<strong>
src/code/unix.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/unix.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/unix.lisp
</span><span style="color: #aaaaaa">@@ -1226,6 +1226,27 @@
</span> (st-fstype (array char 16))
(st-pad4 (array long 8))))
<span style="color: #000000;background-color: #ddffdd">+#+netbsd
+(def-alien-type nil
+ (struct stat
+ (st-dev dev-t)
+ (st-mode mode-t)
+ (st-ino ino-t)
+ (st-nlink nlink-t)
+ (st-uid uid-t)
+ (st-gid gid-t)
+ (st-rdev dev-t)
+ (st-atime (struct timespec-t))
+ (st-mtime (struct timespec-t))
+ (st-ctime (struct timespec-t))
+ (st-birthtime (struct timespec-t))
+ (st-size off-t)
+ (st-blocks off-t)
+ (st-blksize long)
+ (st-flags unsigned-long)
+ (st-gen unsigned-long)
+ (st-spare (array unsigned-long 2))))
+
</span> (defmacro extract-stat-results (buf)
`(values T
(slot ,buf 'st-dev)
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/72afb878f276cef6b754ae2d5a0eff931bf457bc...c076d5501e7c12e8c9dcebbc30b117d0e9cc649d">View it on GitLab</a>
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":["merge_requests","issues","commit"],"url":"https://gitlab.common-lisp.net/cmucl/cmucl/compare/72afb878f276cef6b754ae2d5a0eff931bf457bc...c076d5501e7c12e8c9dcebbc30b117d0e9cc649d"}}</script>
</p>
</div>
</body>
</html>