: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
"Control stack guard page temporarily disabled: proceed with caution~%")
(error 'control-stack-exhausted))))
+(defun undefined-alien-variable-error ()
+ (error 'undefined-alien-variable-error))
+(defun undefined-alien-function-error ()
+ (error 'undefined-alien-function-error))
+(defun memory-fault-error ()
+ (error 'memory-fault-error))
\ No newline at end of file