Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
  • 3 commits
  • 4 files changed
  • 0 commit comments
  • 2 contributors
Commits on Jan 17, 2012
@jimwise jimwise Add patches from Aymeric Vincent to fix sb-posix on recentish NetBSD.
There is some possibility that this will break one of the sb-posix tests on FreeBSD:

  The "rmdir" patch needs some input from FreeBSD users.
  "rmdir /" returns EBUSY on NetBSD. Given the recent commit
  2a9b33f on october, 17. 2011, it looks
  like OpenBSD and Darwin return EISDIR, but it's clearly not the case of
  NetBSD with a (usual) FFS file system.

  In short, either sbcl is currently broken on FreeBSD wrt the rmdir test
  and my patch will fix it, or my patch will break it and we need to include
  freebsd in the list of OSes producing EISDIR upon "rmdir /".
6548750
Commits on Jan 18, 2012
@akovalenko Merge branch 'master' into mswinmt 73190fb
@akovalenko :qslime fix in standalone binaries 07c0546
View
2  README.sbcl-win32-threads.txt
@@ -3,3 +3,5 @@ UNOFFICIAL TEMPORAL FORK [SBCL-WIN32-THREADS] SPECIFIC NOTES
Project home: http://github.com/akovalenko/sbcl-win32-threads
NEWS:
* Fixed issue #8 in external build scripts: x86-64 MSI build now includes ASDF.
+* Prebuilt binaries: make :qslime REPL extension work again after 2011-11-27 SLIME update.
+
View
5 contrib/sb-posix/interface.lisp
@@ -770,8 +770,9 @@ not supported."
result)))
(export 'utime :sb-posix)
(defun utime (filename &optional access-time modification-time)
- (let ((fun (extern-alien "utime" (function int (c-string :not-null t)
- (* alien-utimbuf))))
+ (let ((fun (extern-alien #-netbsd "utime" #+netbsd "_utime"
+ (function int (c-string :not-null t)
+ (* alien-utimbuf))))
(name (filename filename)))
(if (not (and access-time modification-time))
(alien-funcall fun name nil)
View
4 contrib/sb-posix/posix-tests.lisp
@@ -174,7 +174,7 @@
(typep
(sb-posix:syscall-errno c)
'(member
- #+bsd
+ #+(or darwin openbsd)
#.sb-posix:eisdir
#+win32
#.sb-posix::eacces
@@ -182,7 +182,7 @@
#.sb-posix::enotempty
#+sunos
#.sb-posix::einval
- #-(or bsd win32 sunos)
+ #-(or darwin openbsd win32 sunos)
#.sb-posix::ebusy)))) t)
(deftest rmdir.error.4
View
7 src/runtime/bsd-os.c
@@ -22,6 +22,7 @@
#include <sys/param.h>
#include <sys/file.h>
#include <unistd.h>
+#include <utime.h>
#include <assert.h>
#include <errno.h>
#include "sbcl.h"
@@ -342,6 +343,12 @@ _readdir(DIR *dirp)
return readdir(dirp);
}
+int
+_utime(const char *file, const struct utimbuf *timep)
+{
+ return utime(file, timep);
+}
+
/* Used in sb-bsd-sockets. */
int
_socket(int domain, int type, int protocol)

No commit comments for this range

Something went wrong with that request. Please try again.