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