Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cl-tar
cl-tar-file
Commits
18740bb3
Commit
18740bb3
authored
Sep 20, 2021
by
Eric Timmons
Browse files
Remove a stray FORMAT t
parent
9786f56b
Pipeline
#4684
passed with stage
in 8 minutes and 53 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/entry.lisp
View file @
18740bb3
...
...
@@ -272,7 +272,6 @@ NAME bound to the attribute name and VALUE bound to the attribute value."
:for
estimated-length
:=
(
+
offset
(
ceiling
(
log
base-length
10
))
base-length
)
:for
length-vector
:=
(
string-to-bytevec
(
prin1-to-string
estimated-length
)
:utf-8
)
:do
(
format
t
"~S~%"
offset
)
:when
(
=
estimated-length
(
+
(
length
length-vector
)
base-length
))
:return
(
concatenate
'
(
vector
(
unsigned-byte
8
))
length-vector
pair-vector
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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