projects
/
wolf
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 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
;
; 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))))
(< 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
(defevaluator :beginning-of-symbols ""
(lambda ()
(if