+ "Must begin with in-package form"))
+ (defevaluator :normal "\\n"
+ (lambda ()
+ (incf *line-no*)
+ (setf *col-no* 0)
+ nil))
+ (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"))))
+
+ (defevaluator :normal "." (constantly nil))
+ )