[fix] (declare (ignorable ...)) in specialized-type-lists/static

digikar99 · Mar 28, 2024 · aac14d6 · aac14d6
1 parent e0e0e60
commit aac14d6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/nonlite/misc-tests.lisp b/src/nonlite/misc-tests.lisp
@@ -348,13 +348,13 @@
              (undefine-polymorphic-function 'most-specialized-polymorph-tester)
              (define-polymorphic-function most-specialized-polymorph-tester (a))
              (defpolymorph most-specialized-polymorph-tester ((a string)) symbol
-               (declare (ignore a))
+               (declare (ignorable a))
                'string)
              (defpolymorph-compiler-macro most-specialized-polymorph-tester (string) (a)
-               (declare (ignore a))
+               (declare (ignorable a))
                `'(compiled string))
              (defpolymorph most-specialized-polymorph-tester ((a array)) symbol
-               (declare (ignore a))
+               (declare (ignorable a))
                'array)
              (define-compiled-function most-specialized-polymorph-tester-caller ()
                (declare (optimize speed (debug 1)))