~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/: Sort out the manual structure. Write stuff.
[sod]
/
src
/
output-proto.lisp
diff --git
a/src/output-proto.lisp
b/src/output-proto.lisp
index
af293ee
..
65068f3
100644
(file)
--- a/
src/output-proto.lisp
+++ b/
src/output-proto.lisp
@@
-100,6
+100,7
@@
;;;--------------------------------------------------------------------------
;;; Output preparation.
;;;--------------------------------------------------------------------------
;;; Output preparation.
+(export 'hook-output)
(defgeneric hook-output (object reason sequencer)
(:documentation
"Announces the intention to write SEQUENCER, with a particular REASON.
(defgeneric hook-output (object reason sequencer)
(:documentation
"Announces the intention to write SEQUENCER, with a particular REASON.
@@
-112,11
+113,13
@@
it was itself invoked.")
(:method-combination progn)
it was itself invoked.")
(:method-combination progn)
- (:method progn (object reason sequencer)))
+ (:method progn (object reason sequencer)
+ (declare (ignore object reason sequencer))))
;;;--------------------------------------------------------------------------
;;; Useful syntax.
;;;--------------------------------------------------------------------------
;;; Useful syntax.
+(export 'sequence-output)
(defmacro sequence-output
((streamvar sequencer) &body clauses)
"Register output behaviour in a convenient manner.
(defmacro sequence-output
((streamvar sequencer) &body clauses)
"Register output behaviour in a convenient manner.