From 4fadd0b326448f87c3d89cb1a8459e0ba5f8ada5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Wed, 16 Sep 2015 22:53:26 +0200 Subject: [PATCH] pathaname: correct array size MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- pathnames/pathname.lsp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/pathnames/pathname.lsp b/pathnames/pathname.lsp index b32b9c79..fa7ae8f0 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))))) -- GitLab