X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=src%2Fmain%2Fchecker.lisp;h=3db05e29e1b74c823cacf381b164c8676874a02e;hp=ae6c1fbb63462d4ff6ce9f1fe0ed5d4d9c69990a;hb=7b1e850;hpb=659997d6add304dee5b24b2f496412f2e8e57c4d

diff --git a/src/main/checker.lisp b/src/main/checker.lisp
index ae6c1fb..3db05e2 100644
--- 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