first experiment written down

2022-09-11 15:32:15 +00:00
parent 00515cd9df
commit e6270ea435
6 changed files with 262 additions and 10 deletions
--- a/stabler-things/functions.lisp
+++ b/stabler-things/functions.lisp
@@ -1,3 +1,4 @@
+(in-package :cl-patterns)
 (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))))