--- /dev/null
+(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))))
\ No newline at end of file