+ (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 ""
+ (lambda ()
+ (set-state :normal)