anchor.diff:  
   (defun cmd-def (client target line)
     (let* ((word (string-downcase (nth-word 1 line)))
  -         (definitions (dictionary-read word)))
  +         (definitions (definitions-read word)))
       (if (and word definitions)
           (loop :for def :in definitions
                 :for n :upfrom 1
  
positive.code:                                    format-string)
           args))
  
  ;;; Dictionary
  
  (defclass dictionary (eval-bot)
    ((hash :reader hash :initform (make-hash-table :test #'equal))
     (lock :reader lock :initform (bt:make-lock "dictionary"))
     (changed :accessor changed :initform nil)))
  
  (defvar *dictionary* (make-instance 'dictionary))
  
  (defun insert-before-nth (n new-item list)
    (cond ((null list) (list new-item))
  
negative.code:         :for n :upfrom 0
          :unless (= n nth) :collect item))
  
  (defun definitions-add (word definition &optional nth)
    (setf word (string-downcase word))
    (with-slots (lock hash changed) *definitions*
      (bt:with-lock-held (lock)
        (let ((old (gethash word hash)))
          (setf (gethash word hash)
  