cl-musicman top level
Added a top level also changed
chord-progressions from a plist to an associated list. This gets rid of the colons.
CL-USER> (music-theory:music-man)  major-scale a (A B (C# CB) D E (F# GB) (G# AB) A)  major-chord a (A (C# CB) E)  chord-progression (I III V) a (A (C# CB) E) 
I like this little bit of code in particular:
(defun quote-all (L) (cond ((null L) '()) (t (cons `',(car L) (quote-all (cdr L))))))
MUSIC-THEORY> (quote-all '(a b c (d e) f g h)) ('A 'B 'C '(D E) 'F 'G 'H)
The code is here