244 |
(car l) (nth i cons))))) |
(car l) (nth i cons))))) |
245 |
|
|
246 |
(defun inspect-string (string) |
(defun inspect-string (string) |
247 |
(format t (if (simple-string-p string) "~S - simple string" "~S - string") |
(format t "~S - string";(if (simple-string-p string) "~S - simple string" "~S - string") |
248 |
string) |
string) |
249 |
(inspect-print "dimension: ~D"(array-dimension string 0)) |
(inspect-print "dimension: ~D"(array-dimension string 0)) |
250 |
(when (array-has-fill-pointer-p string) |
(when (array-has-fill-pointer-p string) |
258 |
(char string i))))) |
(char string i))))) |
259 |
|
|
260 |
(defun inspect-vector (vector) |
(defun inspect-vector (vector) |
261 |
(format t (if (simple-vector-p vector) "~S - simple vector" "~S - vector") |
(format t "~S - vector";(if (simple-vector-p vector) "~S - simple vector" "~S - vector") |
262 |
vector) |
vector) |
263 |
(inspect-print "dimension: ~D" (array-dimension vector 0)) |
(inspect-print "dimension: ~D" (array-dimension vector 0)) |
264 |
(when (array-has-fill-pointer-p vector) |
(when (array-has-fill-pointer-p vector) |