src/utilities.lisp (compose): Handle the case of zero arguments.

[sod] / src / parser / scanner-charbuf-impl.lisp

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 773a9a105e2fa600620df04008b0ed6c5c13bac6..92ba83c96bb19bbc37b0012665fb8f49e09668c2 100644 (file)
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -354,8 +354,9 @@ (defmethod scanner-release-place ((scanner charbuf-scanner) place)
 
 (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))