1 (defvar *str* "hello world")
5 (test (not (characterp *str*)))
6 (test (not (integerp *str*)))
8 (test (stringp *str2*))
9 (test (not (characterp *str2*)))
10 (test (not (integerp *str2*)))
12 (test (= (length "hello world") 11))
13 (test (arrayp "hello world"))
15 (test (string= "h" (string #\h)))
16 (test (string= "foo" "foo"))
17 (test (not (string= "Foo" "foo")))
18 (test (not (string= "foo" "foox")))
21 (setf (char str 0) #\X)
22 (setf (char str 4) #\X)
23 (test (string= str "XellX")))