anchor.diff:             (setf *chords* (plist-set *chords* x key)))
            aliases)))
   
  -(defun all-chords () ;; FIX
  +(defun all-chords ()
     "Get a list of all defined chords."
  -  ;; (loop :for i :in (keys *tunings*)
  -  ;;    :unless (symbolp (getf *tunings* i))
  -  ;;    :collect (tuning i))
  -  )
  +  (loop :for i :in (keys *chords*)
  +     :unless (symbolp (getf *chords* i))
  +     :collect i))
   
   (defgeneric chord (item))
   
  
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:   "Get a list of all defined tunings."
    (loop :for i :in (keys *tunings*)
       :unless (symbolp (getf *tunings* i))
       :collect i))
  
  (defgeneric tuning (item)
    (:documentation "Get a tuning struct by name."))
  