Abandoned atoms work: hardly any performance benefit.

[sod] / emacs-hacks.el

(dolist (entry '((parse 0)
                 (many 1)
                 (skip-many 1)
                 (seq 1)
                 (lisp 0)
                 (if-parse 2)
                 (if-char 2)
                 (expr 1)
                 (label 1)
                 (acond . cond)
                 (define-class-slot 3)))
  (put (car entry) 'common-lisp-indent-function
       (if (symbolp (cdr entry))
           (get (cdr entry) 'common-lisp-indent-function)
         (cadr entry))))