comparison base/classes.lisp @ 296:68aadc4eb96d

add chromatic-pitch reader method

Ignore-this: 1aba35b7d196e0994a817609337746e1

darcs-hash:20090828145217-16a00-312e63170f50f0bf2834b8959a72e5c857cba9b8.gz

 ;; pitch-related classes
 
 (defclass frequency-pitch (pitch) ())
 
 (defclass chromatic-pitch (pitch)
-  ((number :accessor %chromatic-pitch-number :initarg :number))
-  (:documentation "A pitch represented as a number, with
-  chromatic pitches having distinct values."))
+  ((number :accessor %chromatic-pitch-number
+	   :reader chromatic-pitch-number :initarg :number))
+  (:documentation "A pitch represented as a number, with chromatic
+  pitches having distinct values. FIXME: We should not be using the cl
+  symbol NUMBER."))
+
 (defclass diatonic-pitch (pitch)
   ((cp :initarg :cp :accessor %p-pc :reader diatonic-pitch-cp)
    (mp :initarg :mp :accessor %p-pm :reader diatonic-pitch-mp))
   (:documentation "A diatonic pitch, represented using MIPS: cp is an
 integer representing chromatic pitch (An0 = 0, middle C = 39); mp is