# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1182435336 -3600
# Node ID 13033824fa7dd0b7a4947030fae697e95fcd9433
# Parent  ba65f66a713e782d4cc5e52790dfef8a6b5d695b
utils.lisp: oops - correct line of fifths

darcs-hash:20070621141536-c0ce4-0bb572ad8357f0f19dae3a5d276d69b896386735.gz

diff -r ba65f66a713e -r 13033824fa7d utils/utils.lisp
--- a/utils/utils.lisp	Thu Jun 21 13:13:19 2007 +0100
+++ b/utils/utils.lisp	Thu Jun 21 15:15:36 2007 +0100
@@ -149,7 +149,7 @@
 		     best-score (aref minors i))))
     (values key (key->midi-key-signature key anchored-period))))
 
-(defvar *line-of-fifths* (list 5 10 3 8 1 0 7 2 9 4 11 6))
+(defvar *line-of-fifths* (list 1 8 3 10 5 0 7 2 9 4 11 6))
 
 (defun key->midi-key-signature (key anchored-period)
   (let* ((tonic (car key))