anchor.diff:                   :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)))
  
positive.code: (define-command indent-sexp () ()
    (mark-sexp)
    (indent-region-lisp))
  
negative.code:            (popup-string
              (get-buffer-create "*Error*")
              (with-output-to-string (s)
                (princ cdt s)))
             nil)))
  
  (defun eval-string (str)
    (write-message
  