simple-error
simple-array
simple-string
(defun unicode-string-p (string) "An implementation specific test for a unicode string." (declare (optimize speed (safety 0) (debug 0)) (type simple-string string)) (some #'(lambda (x) (char> x *char-marker*)) string))
simple-vector
simple-warning