X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Finterr.lisp;h=539d632a6af6de5316e85a984eb3c22ee979ea0d;hb=f46b52e0ab5b5a8cdfd0ddabed9ff37a9876506e;hp=a7336528db0399edab8db7f5931adcbb9d97e33e;hpb=0bb093a109ec94a021e413bd0ae6ae7fdf54d774;p=sbcl.git

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index a733652..539d632 100644
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -153,7 +153,8 @@
            (list
             (symbolicate "OBJECT-NOT-" (sb!vm:saetp-primitive-type-name saetp))
             (format nil "Object is not of type ~A."
-                    (specifier-type
-                     `(simple-array ,(sb!vm:saetp-specifier saetp) (*))))))
+                    (type-specifier
+                     (specifier-type
+                      `(simple-array ,(sb!vm:saetp-specifier saetp) (*)))))))
          sb!vm:*specialized-array-element-type-properties*))