~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/Makefile.am: Abstract out repeated TeX arguments into a variable.
[sod]
/
src
/
output-proto.lisp
diff --git
a/src/output-proto.lisp
b/src/output-proto.lisp
index
5b00dcf
..
c5a2dff
100644
(file)
--- a/
src/output-proto.lisp
+++ b/
src/output-proto.lisp
@@
-7,7
+7,7
@@
;;;----- Licensing notice ---------------------------------------------------
;;;
;;;----- Licensing notice ---------------------------------------------------
;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sens
i
ble Object Design, an object system for C.
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
@@
-41,8
+41,7
@@
(export '(sequencer sequencer-constraints sequencer-table))
(defclass sequencer ()
(export '(sequencer sequencer-constraints sequencer-table))
(defclass sequencer ()
- ((constraints :initarg :constraints :initform nil
- :type list :accessor sequencer-constraints)
+ ((constraints :initform nil :type list :accessor sequencer-constraints)
(table :initform (make-hash-table :test #'equal)
:reader sequencer-table))
(:documentation
(table :initform (make-hash-table :test #'equal)
:reader sequencer-table))
(:documentation
@@
-100,6
+99,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.
@@
-113,11
+113,12
@@
(:method-combination progn)
(:method progn (object reason sequencer)
(:method-combination progn)
(:method progn (object reason sequencer)
- (declare (ignore 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.