+ (defevaluator :normal "\\("
+ (lambda ()
+ (push
+ (list *line-no* *col-no*)
+ *form-stack*)
+ nil))
+ (defevaluator :normal "\\)"
+ (lambda ()
+ (let
+ ((form (pop *form-stack*)))
+ (when
+ (< 50 (- *line-no* (car form)))
+ "Forms can't be over 50 lines long"))))
+