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