131 |
(deftest make-string.error.6 |
(deftest make-string.error.6 |
132 |
(classify-error (make-string 10 :element-type)) |
(classify-error (make-string 10 :element-type)) |
133 |
program-error) |
program-error) |
134 |
|
|
135 |
|
;;; Order of evaluation |
136 |
|
|
137 |
|
(deftest make-string.order.1 |
138 |
|
(let ((i 0) a b) |
139 |
|
(values |
140 |
|
(make-string (progn (setf a (incf i)) 4) |
141 |
|
:initial-element (progn (setf b (incf i)) #\a)) |
142 |
|
i a b)) |
143 |
|
"aaaa" 2 1 2) |
144 |
|
|
145 |
|
(deftest make-string.order.2 |
146 |
|
(let ((i 0) a b c) |
147 |
|
(values |
148 |
|
(make-string (progn (setf a (incf i)) 4) |
149 |
|
:initial-element (progn (setf b (incf i)) #\a) |
150 |
|
:element-type (progn (setf c (incf i)) 'base-char)) |
151 |
|
i a b c)) |
152 |
|
"aaaa" 3 1 2 3) |
153 |
|
|
154 |
|
(deftest make-string.order.3 |
155 |
|
(let ((i 0) a b c) |
156 |
|
(values |
157 |
|
(make-string (progn (setf a (incf i)) 4) |
158 |
|
:element-type (progn (setf b (incf i)) 'base-char) |
159 |
|
:initial-element (progn (setf c (incf i)) #\a)) |
160 |
|
i a b c)) |
161 |
|
"aaaa" 3 1 2 3) |
162 |
|
|
163 |
|
|