[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv15100

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
fix swank-sbcl.lisp execv -- sb-posix:syscall-error broke backwards compatibility

--- /project/slime/cvsroot/slime/ChangeLog	2011/06/09 16:35:09	1.2196
+++ /project/slime/cvsroot/slime/ChangeLog	2011/06/09 17:48:47	1.2197
@@ -1,5 +1,10 @@
 2011-06-09  Nikodemus Siivola  <nikodemus at random-state.net>
 
+	* swank-sbcl.lisp (execv): Stupid SBCL hackers breaking backwards
+	compatibility again: SB-POSIX:SYSCALL-ERROR has a required
+	argument in 1.0.49, but accepts no arguments in older ones. Use
+	plain ERROR instead.
+
 	Support for per-package derived indentation, when
 	slime-indentation is used.
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/05/09 10:48:10	1.280
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/06/09 17:48:47	1.281
@@ -1584,10 +1584,10 @@
 
 #+unix
 (progn
-  (sb-alien:define-alien-routine ("execv" sys-execv) sb-alien:int 
+  (sb-alien:define-alien-routine ("execv" sys-execv) sb-alien:int
     (program sb-alien:c-string)
     (argv (* sb-alien:c-string)))
-  
+
   (defun execv (program args)
     "Replace current executable with another one."
     (let ((a-args (sb-alien:make-alien sb-alien:c-string
@@ -1600,7 +1600,7 @@
                             item))
              (when (minusp
                     (sys-execv program a-args))
-               (sb-posix:syscall-error)))
+               (error "execv(3) returned.")))
         (sb-alien:free-alien a-args))))
 
   (defun runtime-pathname ()