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

Fix some random irrelevant complaints from tests

Browse source
This commit is contained in:
Douglas Katzman 2023-12-26 22:32:13 -05:00
parent f9b2600d2d
commit f600e2a2e4
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/clos.impure.lisp
View file

@ -54,7 +54,7 @@
(declare (ignore args))
:no-applicable-method)
(defmethod sb-pcl:no-primary-method ((zut-n-a-m (eql #'zut-n-a-m)) &rest args)
(declare (ignore-args))
(declare (ignore args))
:no-primary-method)
(with-test (:name no-applicable-method)
(assert (eq :no-applicable-method (zut-n-a-m 1 2 3))))
@ -1358,7 +1358,9 @@
;;; verify that we can still detect no primary methods and invalid qualifiers
(defmethod gf-with-keys-and-no-primary-method :around ((x integer) &key b) (1+ x))
(defmethod gf-with-keys-and-no-primary-method :around ((x integer) &key b)
(declare (ignore b))
(1+ x))
(with-test (:name (:check-keyword-args :no-primary-method :no-keywords :error))
(assert-error (gf-with-keys-and-no-primary-method 3) sb-pcl::no-primary-method-error))
@ -1370,7 +1372,10 @@
(defgeneric gf-with-keys-and-invalid-qualifier (x &key)
(:method-combination progn))
(defmethod gf-with-keys-and-invalid-qualifier progn ((x integer) &key b) (print (1+ x)))
(defmethod gf-with-keys-and-invalid-qualifier progn ((x integer) &key b)
(declare (ignore b))
(print (1+ x)))
;; I'm guessing this is PROGN but spelled wrong purposely, right?
(defmethod gf-with-keys-and-invalid-qualifier prong ((x fixnum) &key c) (print c))
(with-test (:name (:check-keyword-args :invalid-qualifier :no-keywords :error))

2
tests/mop-31.impure.lisp
View file

@ -26,9 +26,11 @@
T)
(defmethod sb-mop:direct-slot-definition-class ((class metaclass) &rest initargs)
(declare (ignore initargs))
(find-class 'sb-mop:standard-direct-slot-definition))
(defmethod sb-mop:effective-slot-definition-class ((class metaclass) &rest initargs)
(declare (ignore initargs))
(find-class 'sb-mop:standard-effective-slot-definition))
(defmethod sb-mop:slot-value-using-class ((class metaclass) object slot)