# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID ead979ad3b280fd606823af3e777142a145e5b2b
# Parent  317fe3126c6cd7a80d9fc6b5297b0438e4cfd676
add chromatic-pitch reader method

Ignore-this: 1aba35b7d196e0994a817609337746e1

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

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 317fe3126c6c -r ead979ad3b28 base/classes.lisp
--- a/base/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -53,9 +53,12 @@
 (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))