lispdoc - results for 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))

(defun special-string-p (string)
  (and (simple-string-p string)
       (gethash string *special-strings*)))