anchor.diff:      (list (if (emptyp note) :c (make-keyword (string-upcase note)))
             (if (emptyp octave) 5 (parse-integer octave)))))
   
  -(defun note-number (note)
  -  "Given a note name or note number, return the note number.
  +(uiop:with-deprecation (:style-warning)
  +  (defun note-number (note)
  +    "Deprecated alias for `note-midinote'.
   
   See also: `note-name', `note-name-and-octave', `note-midinote'"
  -  (etypecase note
  -    (number note)
  -    (string-designator
  -     (destructuring-bind (name octave) (note-name-and-octave note)
  -       (+ (position name *note-names* :test #'position)
  -          (* 12 octave))))))
  +    (note-midinote note)))
   
   (defun note-name (note-number)
     "Given a note number, return its note name.
   
   Note that this function is not aware of context and thus always returns the first known name of each note, not necessarily the one that is \"correct\".
   
  -See also: `note-number', `note-midinote'"
  +See also: `note-midinote'"
     (car (elt-wrap *note-names* note-number)))
   
   (defun sharp-or-flat (string)
  
positive.code:       (warn "Scale ~s does not exist." scale))
      (setf (gethash key *chords*) chord)
      (dolist (alias (remove-duplicates (append (generate-aliases key) aliases)))
        (let ((existing (gethash alias *chords*)))
          (if existing
              (if (symbolp existing)
                  (progn
                    (warn "Replacing existing alias \"~s\" (for ~s) with an alias for ~s..." alias existing chord)
                    (setf (gethash alias *chords*) key))
                  (unless (eq existing chord)
                    (warn "Ignoring alias ~s that points to ~s (while trying to add it as an alias for ~s)." alias existing chord)))
              (setf (gethash alias *chords*) key))))))
  
  (defun all-chords ()
    "Get a list of all defined chords."
  
negative.code:                                :octave-ratio octave-ratio)))
      (setf (gethash key *tunings*) tuning)
      (dolist (alias (remove-duplicates (append (generate-aliases key) aliases)))
        (if-let ((existing (gethash alias *tunings*)))
          (if (symbolp existing)
              (progn
                (warn "Replacing existing alias \"~s\" (for ~s) with an alias for ~s..." alias existing tuning)
                (setf (gethash alias *tunings*) key))
              (unless (eq existing tuning)
                (warn "Ignoring alias ~s that points to ~s (while trying to add it as an alias for ~s)." alias existing tuning)))
          (setf (gethash alias *tunings*) key)))))
  
  (defun all-tunings ()
    "Get a list of all defined tunings."
  