~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debian/changelog: Prepare for next version.
[sod]
/
src
/
output-proto.lisp
diff --git
a/src/output-proto.lisp
b/src/output-proto.lisp
index
65068f3
..
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
@@
-112,9
+111,8
@@
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)
- (declare (ignore object reason sequencer))))
+ (:method (object reason sequencer)
+ (declare (ignore object reason sequencer))))
;;;--------------------------------------------------------------------------
;;; Useful syntax.
;;;--------------------------------------------------------------------------
;;; Useful syntax.