X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1d8cc67a3f4ded443f5efc673a616883cbae9c50..1344e1f9c923a4d6602d64a33da175f48c7b7b64:/src/output-proto.lisp

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index 5b00dcf..65068f3 100644
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -100,6 +100,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Output preparation.
 
+(export 'hook-output)
 (defgeneric hook-output (object reason sequencer)
   (:documentation
    "Announces the intention to write SEQUENCER, with a particular REASON.
@@ -113,11 +114,12 @@
 
   (:method-combination progn)
   (:method progn (object reason sequencer)
-    (declare (ignore object reason sequencer))))
+	   (declare (ignore object reason sequencer))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Useful syntax.
 
+(export 'sequence-output)
 (defmacro sequence-output
     ((streamvar sequencer) &body clauses)
   "Register output behaviour in a convenient manner.