X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/7aa55c1174f170016d970a3f5e86d5115f02611c..7702b7bc88a97c15f955f62e8afbc40521ceec7b:/src/parser/scanner-charbuf-impl.lisp

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 773a9a1..92ba83c 100644
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -354,8 +354,9 @@
 
 (defstruct (charbuf-slice
 	     (:constructor make-charbuf-slice
-			   (buf &optional (start 0) %end
-			    &aux (end (or %end (length buf))))))
+		 (buf
+		  &optional (start 0) %end
+		  &aux (end (or %end (length buf))))))
   (buf nil :type (or charbuf (eql :eof)) :read-only t)
   (start 0 :type (and fixnum unsigned-byte) :read-only t)
   (end 0 :type (and fixnum unsigned-byte) :read-only t))