anchor.diff:  
   (defstruct tuning name tuning octave-ratio)
   
  -(defparameter *tunings* (list))
  +(defparameter *tunings* (list)
  +  "Plist of all defined tunings.")
   
   (defun define-tuning (name tuning octave-ratio &optional aliases)
     "Define a tuning and add it to the *tunings* list."
  
positive.code: 
  (defmethod tuning ((item tuning))
    item)
  
  (map nil ;; tunings
       (lambda (sd)
  
negative.code:        ("Wendy Carlos Beta" ,(mapcar (lambda (n) (* n 0.638)) (alexandria:iota 18)) ,(midi-ratio (* 19 0.638)) (:wcBeta))
         ("Wendy Carlos Gamma" ,(mapcar (lambda (n) (* n 0.351)) (alexandria:iota 33)) ,(midi-ratio (* 34 0.351)) (:wcGamma))))
  
  (map nil ;; scales
       (lambda (sd)
         (apply #'define-scale sd))
       '(;; twelve tones per octave
  