:datum object
:expected-type 'base-string))
+(deferr object-not-vector-nil-error (object)
+ (error 'type-error
+ :datum object
+ :expected-type '(vector nil)))
+
+#!+sb-unicode
+(deferr object-not-character-string-error (object)
+ (error 'type-error
+ :datum object
+ :expected-type '(vector character)))
+
(deferr object-not-bit-vector-error (object)
(error 'type-error
:datum object
(deferr unbound-symbol-error (symbol)
(error 'unbound-variable :name symbol))
-(deferr object-not-base-char-error (object)
+(deferr object-not-character-error (object)
(error 'type-error
:datum object
- :expected-type 'base-char))
+ :expected-type 'character))
(deferr object-not-sap-error (object)
(error 'type-error