common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add a WITH-TEST.
Some checks are pending
CL-host / ecl (push) Waiting to run
Details
CL-host / clisp (push) Waiting to run
Details
CL-host / ccl (push) Waiting to run
Details
CL-host / cmucl (push) Waiting to run
Details
CL-host / sbcl (push) Waiting to run
Details
CL-host / compare-xc-host-fasls (ccl, false) (push) Blocked by required conditions
Details
CL-host / compare-xc-host-fasls (clisp, false) (push) Blocked by required conditions
Details
CL-host / compare-xc-host-fasls (cmucl, false) (push) Blocked by required conditions
Details
CL-host / compare-xc-host-fasls (self, false) (push) Blocked by required conditions
Details
Linux arm / build (push) Waiting to run
Details
Linux arm64 / build () (push) Waiting to run
Details
Linux qemu / build (ppc64le) (push) Waiting to run
Details
Linux qemu / build (riscv64) (push) Waiting to run
Details
Linux / build (x86, --with-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86, --without-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86, --without-sb-unicode, ) (push) Waiting to run
Details
Linux / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-fasteval --without-sb-eval --with-nonstop-foreign-call, fasteval) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return, sse4) (push) Waiting to run
Details
Linux / build (x86-64, --with-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86-64, --without-sb-thread, ) (push) Waiting to run
Details
Linux / build (x86-64, --without-sb-unicode, ) (push) Waiting to run
Details
Mac / build (arm64, --with-mark-region-gc --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (arm64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Mac / build (x86-64, --with-sb-thread --with-nonstop-foreign-call --with-tls-based-mv-return) (push) Waiting to run
Details
Windows arm64 / build (arm64, clang-aarch64, clangarm64) (push) Waiting to run
Details
Windows / build (x86-64, ucrt-x86_64, ucrt64) (push) Waiting to run
Details

Browse source
This commit is contained in:
Charles Zhang 2026-09-07 11:48:38 +02:00
parent bc2c8e1fa9
commit 731c203ff2
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tests/clos-1.impure.lisp
View file

@ -231,15 +231,16 @@
(:arguments &whole)))
program-error))
(let (warnings)
(handler-bind ((warning (lambda (c) (push c warnings))))
(eval '(define-method-combination bug-309084-b/mc nil
((all *))
(:arguments x &optional (y 'a yp) &key (z 'b zp) &aux (w (list y z)))
`(list ,x ,y ,yp ,z ,zp ,w)))
;; Should not get any "assigned but never read" warnings.
(assert (= (length warnings) 1))
(assert (search "&OPTIONAL and &KEY" (princ-to-string (car warnings))))))
(with-test (:name :bug-309084-b/mc)
(let (warnings)
(handler-bind ((warning (lambda (c) (push c warnings))))
(eval '(define-method-combination bug-309084-b/mc nil
((all *))
(:arguments x &optional (y 'a yp) &key (z 'b zp) &aux (w (list y z)))
`(list ,x ,y ,yp ,z ,zp ,w)))
;; Should not get any "assigned but never read" warnings.
(assert (= (length warnings) 1))
(assert (search "&OPTIONAL and &KEY" (princ-to-string (car warnings)))))))
(defgeneric bug-309084-b/gf (a &optional b &key &allow-other-keys)
(:method-combination bug-309084-b/mc)