comparison base/classes.lisp @ 44:085c1728480c

"Prefix initargs with colons."

darcs-hash:20070614160242-aa3d6-7f7722cbe2fec0425475a3f8ff3ce9eeb07bee54.gz

 
 (defclass basic-key-signature (key-signature)
   ;; 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
   ;; will textual tempo markings.
   ((bpm :accessor %tempo-bpm