diff --git a/pathnames/pathname.lsp b/pathnames/pathname.lsp index b32b9c7917dd6f8da784307021bbfa19f6eeef3e..fa7ae8f064691047fa4dd5f8b51c14af6b0aebf0 100644 --- a/pathnames/pathname.lsp +++ b/pathnames/pathname.lsp @@ -35,22 +35,22 @@ (deftest pathname.6 (equalt #p"pathname.txt" (pathname - (make-array 25 + (make-array 12 :initial-contents "pathname.txt" :element-type 'base-char))) t) (deftest pathname.7 (equalt #p"pathname.txt" - (pathname (make-array 28 + (pathname (make-array 15 :initial-contents "pathname.txtXXX" :element-type 'base-char - :fill-pointer 25))) + :fill-pointer 12))) t) (deftest pathname.8 (equalt #p"pathname.txt" - (pathname (make-array 25 + (pathname (make-array 12 :initial-contents "pathname.txt" :element-type 'base-char :adjustable t))) @@ -58,15 +58,15 @@ (deftest pathname.9 (equalt #p"pathname.txt" - (pathname (make-array 28 + (pathname (make-array 15 :initial-contents "pathname.txtXXX" :element-type 'character - :fill-pointer 25))) + :fill-pointer 12))) t) (deftest pathname.10 (equalt #p"pathname.txt" - (pathname (make-array 25 + (pathname (make-array 12 :initial-contents "pathname.txt" :element-type 'character :adjustable t))) @@ -77,11 +77,11 @@ collect (equalt #p"pathname.txt" (pathname - (let* ((s (make-array 28 + (let* ((s (make-array 15 :initial-contents "XXpathname.txtX" :element-type etype))) - (make-array 25 + (make-array 8 :element-type etype :displaced-to s :displaced-index-offset 2)))))