4 lines
179 B
Common Lisp
4 lines
179 B
Common Lisp
(defun nchord (symbol &optional (base 0))
|
|
"Return list of notes for chord names by SYMBOL over the BASE."
|
|
(mapcar (lambda (note) (+ base note)) (chord-notes (chord symbol))))
|