- (defevaluator :all "\\t"
- (constantly "Must not use tabs"))
- (defevaluator :begin "\\(in-package[^\\)]*\\)"
- (lambda () (set-state :normal)))
- (defevaluator :beginning-of-line-with-separator :eof
- (constantly "Must not end with empty line"))
- (defevaluator :beginning-of-line-with-separator "\\n"
- (constantly "Must not have two empty lines in a row"))
- (defevaluator :begin ".*"
- (constantly "Must begin with in-package form"))
- (defevaluator :normal "\\( *in-package "
- (constantly "Only one in-package per file"))
+ (defevaluator :all "\\t" (constantly "Must not use tabs"))
+ (defevaluator :begin "\\(in-package[^\\)]*\\)" (lambda () (set-state :normal)))
+ (defevaluator :beginning-of-line-with-separator :eof (constantly "Must not end with empty line"))
+ (defevaluator :beginning-of-line-with-separator "\\n" (constantly "Must not have two empty lines in a row"))
+ (defevaluator :begin ".*" (constantly "Must begin with in-package form"))
+ (defevaluator :normal "\\( *in-package " (constantly "Only one in-package per file"))