anchor.diff:               (delete-character point (- (length src-word)) nil)
                (setf *rest-words* (rest words))
                (setf *all-words* words)
  -             (setf *start-point* (copy-point point :temporary))
  +             (setf *start-charpos* (point-charpos point))
                (insert-string point (first words)))))))
  
positive.code:     (cond ((continue-flag :abbrev)
             (when (null *rest-words*)
               (setf *rest-words* *all-words*))
             (delete-between-points *start-point* point)
             (insert-string point (first *rest-words*))
             (setf *rest-words* (rest *rest-words*)))
            (t
  
negative.code: 
  (defvar *rest-words* nil)
  (defvar *all-words* nil)
  (defvar *start-charpos* nil)
  
  (define-key *global-keymap* (kbd "M-/") 'abbrev)
  (define-command abbrev () ()
  