anchor.diff:          (car buffer-list))))
   
   (defun bury-buffer (buffer)
  +  (check-type buffer buffer)
     (setf *buffer-list*
           (append (delete buffer (buffer-list))
                   (list buffer)))
  
positive.code:         (car buffer-list))))
  
  (defun update-prev-buffer (buffer)
    (setq *buffer-list*
          (cons buffer
                (delete buffer (buffer-list)))))
  
  (defun set-buffer (buffer &optional (update-prev-buffer-p t))
    (check-switch-minibuffer-window)
    (unless (eq (current-buffer) buffer)
      (when update-prev-buffer-p
  
negative.code:       (assert (<= 0 (window-current-charpos (current-window)))))))
  
  (defun delete-buffer (buffer)
    (check-type buffer buffer)
    (mapc #'funcall (buffer-delete-hooks buffer))
    (setf *buffer-list* (delete buffer (buffer-list))))
  
  (defun get-next-buffer (buffer)
    (check-type buffer buffer)
    (let* ((buffer-list (reverse (buffer-list)))
           (res (member buffer buffer-list)))
      (if (cdr res)
  