X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/a1985b3cf0ca42f573b8599ec50a0f162a26c314..3ee33e04477ace9d13587f28253fb8c6d1c7ed6c:/src/parser/scanner-charbuf-impl.lisp?ds=inline

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 773a9a1..37bdd8c 100644
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -110,7 +110,7 @@ (defclass charbuf-scanner (character-scanner)
    captured places properly when he's finished.  In practice, this is usually
    done using the `peek' parser macro so there isn't a problem."))
 
-(export 'charbuf-scanner-place-p)
+(export '(charbuf-scanner-place charbuf-scanner-place-p))
 (defstruct charbuf-scanner-place
   "A captured place we can return to later.
 
@@ -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))