# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1188832104 -3600
# Node ID b3537f75c1c61e897dd281bb728b0c51a1abbf31
# Parent  ee9dd7148eaba782a93f2c5a90d1e36ae1b94def
More minor bug fixes

darcs-hash:20070903150824-f76cc-a4865db990027c9d9c3811165adde98065081e9d.gz

diff -r ee9dd7148eab -r b3537f75c1c6 base/classes.lisp
--- a/base/classes.lisp	Mon Sep 03 11:57:27 2007 +0100
+++ b/base/classes.lisp	Mon Sep 03 16:08:24 2007 +0100
@@ -51,10 +51,13 @@
 23)."))
 
 (defclass chromatic-pitch-interval (pitch-interval) 
-  ((span :accessor %chromatic-pitch-interval-span :initarg :span)))
+  ((span :accessor %chromatic-pitch-interval-span :initarg :span))
+  (:documentation "An interval represented as a number, recording
+  the number of ascending chromatic pitches between two pitches."))
 
 (defclass diatonic-pitch-interval (pitch-interval)
-  ((span :accessor %diatonic-pitch-interval-span :initarg :span :reader span)))
+  ((span :accessor %diatonic-pitch-interval-span :initarg :span :reader span))
+  (:documentation "How is this inplemented?"))
 
 ;; events
 
@@ -82,7 +85,9 @@
 with this name - is there a reason why this is unpitched
 necessarily, or why I'm not counting piano, etc in this? Perhaps
 what I mean is that it should be renamed unpitched-event?
-Actually, is this necessary? Isn't this just an event?"))
+Actually, is this necessary? Isn't this just an event?
+Timbral/instrumental information will be generalised later but is
+less agreed-on than pitch."))
 
 ;;; Range-based `constituents'
 ;; Whilst these are all constituents in the CHARM sense, their
diff -r ee9dd7148eab -r b3537f75c1c6 base/package.lisp
--- a/base/package.lisp	Mon Sep 03 11:57:27 2007 +0100
+++ b/base/package.lisp	Mon Sep 03 16:08:24 2007 +0100
@@ -27,7 +27,7 @@
 	   #:percussive-event
 	   #:standard-percussive-event
 	   #:time-signature
-	   #:time-signature-perid
+	   #:time-signature-period
 	   #:standard-time-signature
 	   #:standard-time-signature-period
 	   #:key-signature
@@ -132,6 +132,7 @@
 	   #:insufficient-information
 	   #:undefined-action
            #:asa-pitch-string  
+           #:asa-interval-string  
            #:diatonic-pitch-name 
            #:middle-c 
            #:make-mips-pitch