:datum object
:expected-type 'simple-string))
+(deferr object-not-simple-base-string-error (object)
+ (error 'type-error
+ :datum object
+ :expected-type 'simple-base-string))
+
(deferr object-not-simple-bit-vector-error (object)
(error 'type-error
:datum object
:datum object
:expected-type 'string))
+(deferr object-not-base-string-error (object)
+ (error 'type-error
+ :datum object
+ :expected-type 'base-string))
+
(deferr object-not-bit-vector-error (object)
(error 'type-error
:datum object