From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Thu, 31 Oct 2002 16:05:34 +0000 (+0000)
Subject: 0.7.9.22:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6ff2116ae3bf3c7acd6692b833f74a5abf2eec54;p=sbcl.git

0.7.9.22:
	Quieten the compiler when compiling DEFMETHODs with &REST args
		(as reported by APD on sbcl-devel 2002-10-31)
---

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 1ccb0ae..0033725 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1068,15 +1068,19 @@ bootstrapping.
                                        ,cnm-args)
                             ,call)
                            ,call))))
-		 ,(if (and (null ',rest-arg)
-			   (consp cnm-args)
-			   (eq (car cnm-args) 'list))
-		      `(call-no-next-method ',method-name-declaration
-			                    ,@(cdr cnm-args))
-		      `(call-no-next-method ',method-name-declaration
-			                    ,@',args
-			                    ,@',(when rest-arg
-						      `(,rest-arg))))))
+		 ,(locally
+		   ;; As above, this declaration supresses code
+		   ;; deletion notes.
+		   (declare (optimize (inhibit-warnings 3)))
+		   (if (and (null ',rest-arg)
+			    (consp cnm-args)
+			    (eq (car cnm-args) 'list))
+		       `(call-no-next-method ',method-name-declaration
+			                     ,@(cdr cnm-args))
+		       `(call-no-next-method ',method-name-declaration
+			                     ,@',args
+			                     ,@',(when rest-arg
+						       `(,rest-arg)))))))
 	      (next-method-p-body ()
                `(not (null ,',next-method-call))))
     ,@body))
diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp
index 0c01319..eb44817 100644
--- a/tests/array.pure.lisp
+++ b/tests/array.pure.lisp
@@ -86,4 +86,4 @@
 		     :fill-pointer 5
 		     :element-type 'character
 		     :initial-contents "abcdefghij")))
-  (assert (string= (reverse a) "edcba")))
\ No newline at end of file
+  (assert (string= (reverse a) "edcba")))
diff --git a/version.lisp-expr b/version.lisp-expr
index 7b01e65..b08c868 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.9.21"
+"0.7.9.22"