;;;
;;; c:\\program files\\acl62\\work1.cl
;;;
;;;
;;; (auto-comp *w1*) etc.
;;;
(setf *w1* '((-E "When I Fall In Love")
("-EM7" ion "C7" alt) ("Fm7"
dor "-B7" mix) ("-EM7" ion "C7" alt) ("Fm7"
dor "-B7" mix)
("-EM7" ion) ("C7" alt) ("F7"
lyd-7) ("-B7" mix) ("-EM7" ion) ("Fm7" dor
"-B7" mix)
("-EM7" ion "-D7" lyd-7) ("Gm7" phr "C7" alt) ("Fm7" dor) ("C7" alt) ("Fm7" dor)
("-B7" mix) ("-EM7" ion "C7"
alt) ("Fm7" dor "-B7" mix) ("-EM7" ion "C7"
alt)
("Fm7" dor "-B7" mix) ("-EM7"
ion) ("C7" alt) ("F7" lyd-7) ("-B7" mix)
("-EM7" ion)
("Am7-5" loc "D7" alt) ("Gm7" phr "C7" alt) ("Fm7" dor "-D7" lyd-7) ("Gm7" phr "C7" alt)
("Fm7" dor "-B7" mix) ("-EM7"
ion "Edim7" dim) ("Fm7" dor "-B7" mix)))
(setf *w2* '((C "Laura")
("Am7" dor) ("D7" alt) ("GM7" ion) ("GM7" ion) ("Gm7" dor) ("C7" alt) ("FM7" ion)
("FM7" ion) ("Fm7" dor) ("-B7"
alt) ("-EM7" ion) ("-EM7" ion) ("Am7-5" loc)
("D7" alt) ("GM7" ion) ("Bm7"
phr "E7" alt) ("Am7" dor) ("D7" alt) ("GM7"
ion)
("GM7" ion) ("Gm7" dor) ("C7"
alt) ("FM7" ion) ("FM7" ion) ("Fm7" dor)
("Dm7-5" loc "G7" alt) ("CM7" ion) ("Am7" aeo) ("D7" lyd-7) ("Dm7-5" loc "G7" alt)
("-DM7" ion) ("CM7" ion)))
(setf *w3* '((F "Dindi")
("FM7" ion) ("-EM7" lyd) ("FM7"
ion) ("Cm7" dor "F7" alt) ("-BM7" lyd)
("-E7" lyd-7) ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd) ("FM7" ion)
("Cm7" dor "F7" alt) ("-BM7"
lyd) ("-E7" lyd-7) ("FM7" ion) ("Bm7-5" loc
"E7" hmp5)
("Am7" all) ("E7" hmp5) ("Am7"
all "E7" hmp5) ("Am7" all "D7" alt) ("Gm7"
all)
("D7" hmp5) ("Gm7" all "D7" hmp5) ("Gm7" all "C7" alt) ("FM7" ion) ("-EM7" lyd)
("FM7" ion) ("Cm7" dor "F7"
alt) ("-BM7" lyd) ("-E7" lyd-7) ("FM7" ion)
("-EM7" lyd)
("FM7" ion) ("-EM7" lyd) ("FM7"
ion) ("-EM7" lyd)
("FM7" ion) ("FM7" ion) ("-EM7" lyd) ("-EM7" lyd)
("DM7" ion) ("DM7" ion) ("DM7"
ion) ("DM7" ion)))
(setf *w4* '((G "Love")
("GM7" ion) ("GM7" ion) ("Am7"
dor) ("D7" mix) ("D7" mix) ("D7" mix)
("GM7" ion) ("GM7" ion) ("GM7"
ion) ("G7" mix) ("CM7" lyd) ("CM7" lyd)
("A7" lyd-7) ("A7" lyd-7) ("Am7"
dor) ("D7" mix) ("GM7" ion) ("GM7" ion)
("Am7" dor) ("D7" mix) ("D7" mix) ("D7" mix) ("GM7" ion) ("GM7" ion)
("GM7" ion) ("G7" mix) ("CM7"
lyd) ("+Cdim7" dim) ("GM7" ion) ("D7" mix)
("GM7" ion "+Gdim7" dim) ("Am7"
dor "D7" mix) ("GM7" ion)
("GM7" ion) ("GM7" ion) ("GM7" ion)))
(setf *w5* '((c "Yesterdays")
("Cm" all) ("Dm7-5" loc "G7"
alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm"
all)
("Cm7" all) ("Am7-5" loc) ("D7" alt) ("G7" alt) ("C7" alt) ("F7" alt) ("-B7" lyd-7)
("-E7" alt) ("-AM7" ion "G7"
alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm"
all)
("Dm7-5" loc "G7" alt) ("Cm"
all) ("Dm7-5" loc "G7" alt) ("Cm" all) ("Cm7"
all)
("Am7-5" loc) ("D7" alt) ("G7" alt) ("C7" alt) ("F7" alt) ("-B7" lyd-7) ("-E7" alt)
("-AM7" ion "G7" alt) ("Cm"
all) ("Dm7-5" loc "G7" alt) ("Cm" all "Am7-5"
loc)
("Dm7-5" loc "G7" alt) ("Cm"
all "Am7-5" loc) ("Dm7-5" loc "G7" alt)
("Cm" all "Am7-5" loc) ("Dm7-5" loc "G7" alt)
("Cm" all) ("Cm" all) ("Cm"
all) ("Cm" all)))
(setf *w6* '((F "I'm Getting Sentimental Over You")
("FM7" ion) ("E7" alt) ("Am7-5" loc) ("D7" alt) ("G7" lyd-7) ("C7" mix)
("Am7" phr "D7" alt) ("Gm7"
dor "C7" mix) ("FM7" ion) ("E7" alt) ("Am7-5"
loc)
("D7" alt) ("G7" lyd-7) ("C7"
mix) ("FM7" ion) ("Bm7-5" loc "E7" alt)
("Am" aeo) ("Am7" aeo) ("B7" alt) ("Dm7" dor) ("E7" alt) ("E7" alt)
("Am7" aeo "D7" alt) ("Gm7"
dor "C7" mix) ("FM7" ion) ("E7" alt)
("Am7-5" loc) ("D7" alt) ("G7"
lyd-7) ("C7" mix) ("Am7" aeo) ("D7" alt)
("G7" lyd-7) ("C7" mix) ("FM7" ion "+Fdim7" dim) ("Gm7" dor "C7" mix)
("FM7" ion) ("FM7" ion) ("FM7"
ion) ("FM7" ion)))