# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1251471137 -3600
# Node ID 68aadc4eb96d3955c32596f4bbfb5d96c6d3a33b
# Parent  ced696bd98715a1bfc16ecf609c4ee922b880aae
add chromatic-pitch reader method

Ignore-this: 1aba35b7d196e0994a817609337746e1

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

diff -r ced696bd9871 -r 68aadc4eb96d base/classes.lisp
--- a/base/classes.lisp	Thu Aug 20 19:19:49 2009 +0100
+++ b/base/classes.lisp	Fri Aug 28 15:52:17 2009 +0100
@@ -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))