+ (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-separators-with-space " *"
+ (lambda ()
+ (set-state :beginning-of-symbols)
+ nil))
+ (defevaluator :beginning-of-symbols "\\n"
+ (lambda ()
+ (if
+ (< 0 *col-no*)
+ "No whitespace only lines"
+ (set-state :beginning-of-separators-with-space))))
+ (defevaluator :beginning-of-symbols ""
+ (lambda ()
+ (set-state :normal)