Commit | Line | Data |
---|---|---|
dea4d055 MW |
1 | (dolist (entry '((parse 0) |
2 | (many 1) | |
3 | (skip-many 1) | |
4 | (seq 1) | |
5 | (lisp 0) | |
6 | (if-parse 2) | |
7 | (if-char 2) | |
8 | (expr 1) | |
239fa5bd | 9 | (label 1) |
dea4d055 MW |
10 | (acond . cond) |
11 | (define-class-slot 3))) | |
12 | (put (car entry) 'common-lisp-indent-function | |
13 | (if (symbolp (cdr entry)) | |
14 | (get (cdr entry) 'common-lisp-indent-function) | |
15 | (cadr entry)))) |