anchor.diff:    "Get a list of all defined tunings."
     (loop :for i :in (keys *tunings*)
        :unless (symbolp (getf *tunings* i))
  -     :collect (tuning i)))
  +     :collect i))
   
   (defgeneric tuning (item)
     (:documentation "Get a tuning struct by name."))
  
positive.code:   "Get a list of all defined scales."
    (loop :for i :in (keys *scales*)
       :unless (symbolp (getf *scales* i))
       :collect (scale i)))
  
  (defgeneric scale (item)
    (:documentation "Get a scale struct by name."))
  
negative.code:            (setf *chords* (plist-set *chords* x key)))
           aliases)))
  
  (defun all-chords ()
    "Get a list of all defined chords."
    (loop :for i :in (keys *chords*)
       :unless (symbolp (getf *chords* i))
       :collect i))
  
  (defgeneric chord (item))
  
  