(load "c:\\program files\\acl62\\music36.cl")
(load "c:\\program files\\acl62\\work1.cl")

(make-frame-from-list
　'(M7 (CM7 (value "E7" "+F7" "-G7"
                   "A7" "B7"))))

(make-frame-from-list
　'(m7 (Cm7 (value "+D7" "-E7" "E7"
                   "+A7" "-B7"))))

(make-frame-from-list
　'(m7-5 (Cm7-5 (value "+C7" "-D7"
                       "+D7" "-E7"
                       "+A7" "-B7"))))

(make-frame-from-list
　'(d7 (C7 (value "A7"))))

;;;
;;;
;;;
(defun get-M7-of-CM7 ()
   (fget-i 'M7 'CM7))

(defun get-m7-of-Cm7 ()
   (fget-i 'm7 'Cm7))

(defun get-m7-5-of-Cm7-5 ()
   (fget-i 'm7-5 'Cm7-5))
 (defun get-d7-of-C7 ()
   (fget-i 'd7 'C7))

;;;
;;;
;;;
(defun collect-DC-dominant-M7 (chord)
　　(remove-duplicate
        (modulate-key1-to-key2
             (get-M7-of-CM7)
             'C
             (involve-atom-p chord))))

(defun collect-DC-dominant-m7 (chord)
　　(remove-duplicate
        (modulate-key1-to-key2
             (get-m7-of-Cm7)
             'C
             (involve-atom-p chord))))

(defun collect-DC-dominant-m7-5 (chord)
　　(remove-duplicate
        (modulate-key1-to-key2
             (get-m7-5-of-Cm7-5)
             'C
             (involve-atom-p chord))))

(defun collect-DC-dominant-d7 (chord)
　　(remove-duplicate
        (modulate-key1-to-key2
             (get-d7-of-C7)
             'C
             (involve-atom-p chord))))

;;;
;;;
;;;
(defun collect-DC-dominant (chord)
　　(cond ((search-s1-in-s2 "m7-5" chord)
           (collect-DC-dominant-m7-5 chord))
　　　　　((search-s1-in-s2 "m7" chord)
           (collect-DC-dominant-m7 chord))
　　　　　((search-s1-in-s2 "M7" chord)
           (collect-DC-dominant-M7 chord))
　　　　　((search-s1-in-s2 "7" chord)
           (collect-DC-dominant-d7 chord))))