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 (file)
--- 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 (file)
--- 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 (file)
--- 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"