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