~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/concepts.tex: Make use of the concept of `inconsistent lists'.
[sod]
/
src
/
output-proto.lisp
diff --git
a/src/output-proto.lisp
b/src/output-proto.lisp
index
af293ee
..
e31b201
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.
@@
-111,12
+111,13
@@
a reason to its sub-objects that is different from the REASON with which
it was itself invoked.")
a reason to its sub-objects that is different from the REASON with which
it was itself invoked.")
- (:method
-combination progn
)
-
(:method progn (object reason sequencer
)))
+ (:method
(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.