Mercurial > hg > amuse

diff base/classes.lisp @ 44:085c1728480c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"Prefix initargs with colons." darcs-hash:20070614160242-aa3d6-7f7722cbe2fec0425475a3f8ff3ce9eeb07bee54.gz
author m.pearce <m.pearce@gold.ac.uk>
date Thu, 14 Jun 2007 17:02:42 +0100
parents 5bec705db9d6
children cace0cf82aee
line wrap: on
line diff
--- a/base/classes.lisp	Thu Jun 14 15:52:09 2007 +0100
+++ b/base/classes.lisp	Thu Jun 14 17:02:42 2007 +0100
@@ -73,13 +73,13 @@
   ;; Only has line-of-fifths distance from c, so custom signatures
   ;; won't work
   ((sharp-count :accessor %basic-key-signature-sharp-count
-		:initarg sharp-count)))
+		:initarg :sharp-count)))
 
 (defclass midi-key-signature (basic-key-signature)
   ;; Is mode ever used in real life? Is it ever accurately used in
   ;; real life?
   ((mode :accessor %midi-key-signature-mode
-	 :initarg mode)))
+	 :initarg :mode)))
 
 (defclass tempo (anchored-period)
   ;; accel and rit in symbolic encoding will need other structures, as