Mercurial > hg > amuse

diff base/classes.lisp @ 88:8ea75cc8bc2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basic geerdes functionality moved to implementations/geerdes from separate package darcs-hash:20070720161242-f76cc-fd256cbbb81d8c418a6c7c45844264184c5ed932.gz
author David Lewis <d.lewis@gold.ac.uk>
date Fri, 20 Jul 2007 17:12:42 +0100
parents 4e1538df0d10
children 0b4c624910f1
line wrap: on
line diff
--- a/base/classes.lisp	Wed Jul 18 16:12:58 2007 +0100
+++ b/base/classes.lisp	Fri Jul 20 17:12:42 2007 +0100
@@ -37,7 +37,7 @@
 (defclass pitch (pitch-designator) ())
 (defclass chromatic-pitch (pitch) 
   ((number :accessor %chromatic-pitch-number :initarg :number)))
-(defclass diatonic-pitch (pitch) 
+(defclass diatonic-pitch (pitch)
   ((name :accessor %diatonic-pitch-name :initarg :name)
    (accidental :accessor %diatonic-pitch-accidental :initarg :accidental)
    (octave :accessor %diatonic-pitch-octave :initarg :octave))