master: tests: Add a few missing IGNORE declaration in packages.impure.lisp

scymtym via Sbcl-commits <[email protected]> Sun, 17 May 2026 17:57:50 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  7743b9db56b9f3bd5e548b0d1636f076be866a38 (commit)
      from  772ca5717fdd57c97f44f8086394a6bbcfd0b6e8 (commit)

- Log -----------------------------------------------------------------
commit 7743b9db56b9f3bd5e548b0d1636f076be866a38
Author: Jan Moringen <[email protected]>
Date:   Sun May 17 15:06:28 2026 +0200

    tests: Add a few missing IGNORE declaration in packages.impure.lisp
---
 tests/packages.impure.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index fdaf7040e..2641450ed 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -412,6 +412,7 @@ if a restart was invoked."
     (unwind-protect
          (handler-bind ((name-conflict
                           (lambda (c)
+                            (declare (ignore c))
                             (assert (not (find-restart 'sb-impl::dont-import-it)))
                             (assert (not (find-restart 'sb-impl::shadowing-import-it)))
                             (invoke-restart 'abort))))
@@ -493,6 +494,7 @@ if a restart was invoked."
            (export (intern "FOO" p2) p2)
            (handler-bind ((name-conflict
                             (lambda (c)
+                              (declare (ignore c))
                               (assert (not (find-restart 'sb-impl::keep-old)))
                               (assert (not (find-restart 'sb-impl::take-new)))
                               (invoke-restart 'abort))))
@@ -738,12 +740,13 @@ if a restart was invoked."
                 (let ((*package* p1))
                   (intern "FOO" :own-nickname))))))
 
-(with-test (:name (add-package-local-nickname :nickname-conflict :restart :keep-old))
+(with-test (:name (add-package-local-nickname :nickname-conflict :restart sb-impl::keep-old))
   (with-tmp-packages ((p1 (make-package "NICKNAME-CONFLICT1"))
                       (p2 (make-package "NICKNAME-CONFLICT2"))
                       (p3 (make-package "NICKNAME-CONFLICT3")))
     (assert (eq p3 (add-package-local-nickname #1="N" p1 p3)))
     (handler-bind ((error (lambda (condition)
+                            (declare (ignore condition))
                             (invoke-restart 'sb-impl::keep-old))))
       (assert (eq p3 (add-package-local-nickname #1# p2 p3))))
     (assert (eq p1 (cdr (assoc "N" (package-local-nicknames p3) :test #'string=))))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL