23 |
"Xbcd" "aXcd" "abXd" "abcX") |
"Xbcd" "aXcd" "abXd" "abcX") |
24 |
|
|
25 |
(deftest char.3 |
(deftest char.3 |
26 |
(let ((s (make-array 6 :element-type 'chararacter |
(let ((s (make-array 6 :element-type 'character |
27 |
:initial-contents '(#\a #\b #\c #\d #\e #\f)))) |
:initial-contents '(#\a #\b #\c #\d #\e #\f)))) |
28 |
(setf (char s 3) #\X) |
(setf (char s 3) #\X) |
29 |
s) |
s) |
30 |
"abcXef") |
"abcXef") |
31 |
|
|
32 |
(deftest char.4 |
(deftest char.4 |
33 |
(let ((s (make-array 6 :element-type 'chararacter |
(let ((s (make-array 6 :element-type 'character |
34 |
:initial-contents '(#\a #\b #\c #\d #\e #\f) |
:initial-contents '(#\a #\b #\c #\d #\e #\f) |
35 |
:fill-pointer 4))) |
:fill-pointer 4))) |
36 |
(setf (char s 3) #\X) |
(setf (char s 3) #\X) |
56 |
"aaaXa") |
"aaaXa") |
57 |
|
|
58 |
(deftest char.8 |
(deftest char.8 |
59 |
(let ((s (make-array 6 :element-type 'chararacter |
(let ((s (make-array 6 :element-type 'character |
60 |
:initial-contents '(#\a #\b #\c #\d #\e #\f) |
:initial-contents '(#\a #\b #\c #\d #\e #\f) |
61 |
:fill-pointer 4))) |
:fill-pointer 4))) |
62 |
(setf (char s 5) #\X) |
(setf (char s 5) #\X) |