anchor.diff:             (popup-string
               (get-buffer-create "*Error*")
               (with-output-to-string (s)
  -              (princ cdt s))))))
  +              (princ cdt s)))
  +           nil)))
   
   (defun eval-string (str)
     (write-message
  
positive.code:     (setf (get (car elt) 'lisp-indent) (cdr elt))))
  
  (defvar *lisp-mode-keymap*
    (make-keymap "lisp" 'undefined-key *global-keymap*))
  
  (define-mode lisp-mode
    :name "lisp-mode"
    :keymap *lisp-mode-keymap*
    :syntax-table (make-syntax-table
                   :space-chars '(#\space #\tab #\newline)
                   :symbol-chars '(#\$ #\& #\* #\+ #\- #\_ #\< #\> #\= #\/ #\:)
                   :paren-alist '((#\( . #\))
  
negative.code:                  :escape-chars '(#\\)
                   :expr-prefix-chars '(#\' #\, #\@ #\# #\`)
                   :line-comment-char #\;))
  
  (define-mode lisp-mode
    :name "lisp-mode"
    :keymap *lisp-mode-keymap*
    :syntax-table *lisp-syntax-table*)
  
  (defun lisp-looking-at-word ()
    (let ((point (point)))
  