+ (constantly "Must begin with in-package form"))
+ (defevaluator :normal "\\( *in-package "
+ (constantly "Only one in-package per file"))
+ (defevaluator :normal "\\n"
+ (lambda ()
+ (set-state :beginning-of-line)
+ (incf *line-no*)
+ (setf *col-no* -1)
+ nil))
+ (defevaluator :normal " +\\n"
+ (lambda ()
+ "No whitespace at end of line"))
+ (defevaluator :beginning-of-line " *"
+ (lambda ()
+ (set-state :beginning-of-symbols)
+ nil))
+ (defevaluator :beginning-of-symbols "\\n"
+ (lambda () (when (< 0 *col-no*) "No whitespace only lines")))
+ (defevaluator :beginning-of-symbols ""