Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
4fadd0b3
Commit
4fadd0b3
authored
Sep 16, 2015
by
Daniel Kochmański
Browse files
pathaname: correct array size
Signed-off-by:
Daniel Kochmański
<
daniel@turtleware.eu
>
parent
e6f016aa
Changes
1
Hide whitespace changes
Inline
Side-by-side
pathnames/pathname.lsp
View file @
4fadd0b3
...
...
@@ -35,22 +35,22 @@
(deftest pathname.6
(equalt #p"pathname.txt"
(pathname
(make-array 2
5
(make-array
1
2
: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 2
5
)))
:fill-pointer
1
2)))
t)
(deftest pathname.8
(equalt #p"pathname.txt"
(pathname (make-array 2
5
(pathname (make-array
1
2
: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 2
5
)))
:fill-pointer
1
2)))
t)
(deftest pathname.10
(equalt #p"pathname.txt"
(pathname (make-array 2
5
(pathname (make-array
1
2
: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)))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment