(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))))