debian/: Ship `symbols' file for better downstream dependency versioning.

[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 ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible 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
@@ -41,8 +41,7 @@
 
 (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
@@ -112,9 +111,8 @@
    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.