X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Finterr.lisp;h=1a96e19cfb0f30ad5b54459571064a848ee287bf;hb=03df95052f395c205d7e5028e06bc043ee60125d;hp=6fcae7542a3377e1a1fcf834a39e25964caccdcf;hpb=2db3b6b4cb740d5b6512459c223859f747807b09;p=sbcl.git

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index 6fcae75..1a96e19 100644
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -59,6 +59,8 @@
    "Object is not of type LONG-FLOAT.")
   (object-not-simple-string
    "Object is not of type SIMPLE-STRING.")
+  (object-not-simple-base-string
+   "Object is not of type SIMPLE-BASE-STRING.")
   (object-not-simple-bit-vector
    "Object is not of type SIMPLE-BIT-VECTOR.")
   (object-not-simple-vector
@@ -69,6 +71,8 @@
    "Object is not of type VECTOR.")
   (object-not-string
    "Object is not of type STRING.")
+  (object-not-base-string
+   "Object is not of type BASE-STRING.")
   (object-not-bit-vector
    "Object is not of type BIT-VECTOR.")
   (object-not-array