Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv1933

Modified Files:
	version.lisp-expr NEWS 
Log Message:
0.pre8.119:
	Sneaking in despite the freeze: fix the long form of 
	DEFINE-METHOD-COMBINATION, which is allowed a documentation 
	string.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.941
retrieving revision 1.942
diff -u -d -r1.941 -r1.942
--- version.lisp-expr	29 Apr 2003 00:28:42 -0000	1.941
+++ version.lisp-expr	29 Apr 2003 13:19:10 -0000	1.942
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.118"
+"0.pre8.119"

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.292
retrieving revision 1.293
diff -u -d -r1.292 -r1.293
--- NEWS	28 Apr 2003 12:57:02 -0000	1.292
+++ NEWS	29 Apr 2003 13:19:11 -0000	1.293
@@ -1675,6 +1675,8 @@
     with a name from the CL package.
   * MAP-INTO for a vector destination is open coded.  (reported by
     Brian Downing on c.l.l)
+  * bug fix: the long form of DEFINE-METHOD-COMBINATION now accepts a
+    documentation string.
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** COPY-ALIST now signals an error if its argument is a dotted
        list;

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv1933/src/pcl

Modified Files:
	defcombin.lisp 
Log Message:
0.pre8.119:
	Sneaking in despite the freeze: fix the long form of 
	DEFINE-METHOD-COMBINATION, which is allowed a documentation 
	string.


Index: defcombin.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/defcombin.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- defcombin.lisp	19 Nov 2002 19:02:15 -0000	1.17
+++ defcombin.lisp	29 Apr 2003 13:19:15 -0000	1.18
@@ -233,9 +233,7 @@
        (type ll method-group-specifiers args-option gf-var body)
   (declare (ignore type))
   (multiple-value-bind (real-body declarations documentation)
-      ;; (Note that PARSE-BODY ignores its second arg ENVIRONMENT.)
-      (parse-body body nil)
-
+      (parse-body body)
     (let ((wrapped-body
 	    (wrap-method-group-specifier-bindings method-group-specifiers
 						  declarations

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv3933/src/code

Modified Files:
	target-thread.lisp 
Log Message:
0.pre8.118 
	Fix WITH-MUTEX bug: don't release the mutex if we didn't 
	manage to acquire it in the first place



Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- target-thread.lisp	2 Apr 2003 12:46:20 -0000	1.3
+++ target-thread.lisp	29 Apr 2003 00:28:43 -0000	1.4
@@ -140,12 +140,13 @@
      (setf old-value t1))))
 
 (defmacro with-mutex ((mutex &key value (wait-p t))  &body body)
-  (let ((block (gensym "NIL")))
-    `(unwind-protect
-      (block ,block
-	(unless (get-mutex ,mutex ,value ,wait-p) (return-from ,block nil))
-	,@body)
-      (release-mutex ,mutex))))
+  (let ((block (gensym "NIL"))
+	(got (gensym "GOT")))
+    `(let ((,got (get-mutex ,mutex ,value ,wait-p)))
+      (when ,got
+	(unwind-protect
+	     (progn ,@body)
+	  (release-mutex ,mutex))))))
 
 
 ;;;; condition variables

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv3933

Modified Files:
	version.lisp-expr 
Log Message:
0.pre8.118 
	Fix WITH-MUTEX bug: don't release the mutex if we didn't 
	manage to acquire it in the first place



Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.940
retrieving revision 1.941
diff -u -d -r1.940 -r1.941
--- version.lisp-expr	28 Apr 2003 12:57:03 -0000	1.940
+++ version.lisp-expr	29 Apr 2003 00:28:42 -0000	1.941
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.117"
+"0.pre8.118"