Commit 18740bb3 authored by Eric Timmons's avatar Eric Timmons
Browse files

Remove a stray FORMAT t

parent 9786f56b
Pipeline #4684 passed with stage
in 8 minutes and 53 seconds
......@@ -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)
:do (format t "~S~%" offset)
:when (= estimated-length (+ (length length-vector) base-length))
:return (concatenate '(vector (unsigned-byte 8)) length-vector pair-vector))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment