No hanging close parens

diff --git a/resources/hangingcloseparens1.lisp b/resources/hangingcloseparens1.lisp
new file mode 100644 (file)
index 0000000..1f08a71
--- /dev/null
+++ b/resources/hangingcloseparens1.lisp
@@ -0,0 +1,12 @@
+(in-package #:nothing)
+
+(defun small-guy (a b) (+ a b))
+(defun small-guy-2 (a b) (+ a b))
+
+(defun hello-world (a b c)
+ (progn
+  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
+   (when
+    (read-line str)
+    (format t "This file had some things in int, yay!~%"))))
+)

diff --git a/resources/hangingcloseparens2.lisp b/resources/hangingcloseparens2.lisp
new file mode 100644 (file)
index 0000000..17cd142
--- /dev/null
+++ b/resources/hangingcloseparens2.lisp
@@ -0,0 +1,13 @@
+(in-package #:nothing)
+
+(defun small-guy (a b) (+ a b))
+(defun small-guy-2 (a b) (+ a b))
+
+(defun hello-world (a b c)
+ (progn
+  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
+   (when
+    (read-line str)
+    (format t "This file had some things in int, yay!~%"))))
+
+ )

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