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