diff --git a/ansi-tests/char-schar.lsp b/ansi-tests/char-schar.lsp index aa15a32b2d5197910d7ba62192c67f334a6eef44..fc07c31c2e1ccaf22c6700b0ed7d82a3ba320abb 100644 --- a/ansi-tests/char-schar.lsp +++ b/ansi-tests/char-schar.lsp @@ -23,14 +23,14 @@ "Xbcd" "aXcd" "abXd" "abcX") (deftest char.3 - (let ((s (make-array 6 :element-type 'chararacter + (let ((s (make-array 6 :element-type 'character :initial-contents '(#\a #\b #\c #\d #\e #\f)))) (setf (char s 3) #\X) s) "abcXef") (deftest char.4 - (let ((s (make-array 6 :element-type 'chararacter + (let ((s (make-array 6 :element-type 'character :initial-contents '(#\a #\b #\c #\d #\e #\f) :fill-pointer 4))) (setf (char s 3) #\X) @@ -56,7 +56,7 @@ "aaaXa") (deftest char.8 - (let ((s (make-array 6 :element-type 'chararacter + (let ((s (make-array 6 :element-type 'character :initial-contents '(#\a #\b #\c #\d #\e #\f) :fill-pointer 4))) (setf (char s 5) #\X) diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp index 86d5b0f9f1c37f14f2c60f9f4fc37d3434a5327e..a513a72bb206822cdec94fe36935cb28bb7c59e1 100644 --- a/ansi-tests/map.lsp +++ b/ansi-tests/map.lsp @@ -125,10 +125,12 @@ (map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e)) "abcde") +;;; Use a more elaborate form of the simple-array type specifier (deftest map-string.31 (map '(simple-array character *) #'identity "abcde") "abcde") +;;; Use a more elaborate form of the simple-array type specifier (deftest map-string.32 (map '(simple-array character 5) #'identity "abcde") "abcde") diff --git a/ansi-tests/reader-test.lsp b/ansi-tests/reader-test.lsp index 40120456330a1c2c506c7a5ce46cea717e27ef48..817de73a728dc7595c7a22ae877189fb87e50ead 100644 --- a/ansi-tests/reader-test.lsp +++ b/ansi-tests/reader-test.lsp @@ -97,6 +97,7 @@ "ABCD")))) t) +#| (deftest read-symbol-8 (multiple-value-bind (s n) (ignore-errors (read-from-string "::ABCD")) @@ -107,6 +108,7 @@ (string-equal (symbol-name s) "ABCD")))) t) +|# (defun read-symbol-9-body (natoms maxlen) (let* ((chars (concatenate 'string diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp index 9de96d27777773721c1cd911faa5bf69a69201cc..36b10956d3717e16cf8c86bbc663e3b44eab52b5 100644 --- a/ansi-tests/string.lsp +++ b/ansi-tests/string.lsp @@ -108,6 +108,10 @@ (subtypep 'simple-base-string 'simple-string) t t) +(deftest simple-base-string.8 + (subtypep 'simple-base-string 'simple-vector) + t t) + ;;; Tests for simple-string-p (deftest simple-string-p.1