No hanging close parens

[wolf] / src / main / checker.lisp

diff --git a/src/main/checker.lisp b/src/main/checker.lisp
index ae6c1fbb63462d4ff6ce9f1fe0ed5d4d9c69990a..3db05e29e1b74c823cacf381b164c8676874a02e 100644 (file)
--- a/src/main/checker.lisp
+++ b/src/main/checker.lisp
@@ -14,7 +14,7 @@
 ; * No empty lines at end of file
 ; * Never have two empty lines in a row
 ; * Only one in-package per file
-; - No hanging close parens
+; * No hanging close parens
 ;
 ; Some thoughts
 ; - form starting reader macros will have to be hand added to this code
@@ -142,6 +142,10 @@
     (< 0 *col-no*)
     "No whitespace only lines"
     (set-state :beginning-of-line-with-separator))))
+ (defevaluator :beginning-of-symbols "\\)"
+  (constantly "No hanging close parens"))
+ (defevaluator :beginning-of-symbols-with-separator "\\)"
+  (constantly "No hanging close parens"))
  (defevaluator :beginning-of-symbols ""
   (lambda ()
    (if