anchor.diff:    (insert-newline n)
     (lisp-indent-line))
   
  +(define-command lisp-indent-region () ()
  +  (save-excursion
  +   (apply-region-lines (region-beginning)
  +                       (region-end)
  +                       'lisp-indent-line)
  +   t))
  +
  +(define-key *lisp-mode-keymap* (kbd "M-C-q") 'lisp-indent-sexp)
  +(define-command lisp-indent-sexp () ()
  +  (mark-sexp)
  +  (lisp-indent-region))
  +
   (defun string-to-exps (str)
     (let ((str str)
           (exps)
  
positive.code:           load-file
            macroexpand-lisp
            lisp-describe-symbol
            indent-region-lisp
            indent-sexp
            complete-symbol
            lisp-comment-region
            popup-scratch-buffer
  
negative.code:                    #'(lambda (out)
                         (describe (read-from-string name) out))))
  
  (define-key *lisp-mode-keymap* (kbd "M-C-i") 'complete-symbol)
  (define-command complete-symbol () ()
    (let* ((end (point))
  