projects
/
wolf
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add exception for package.lisp
[wolf]
/
src
/
main
/
checker.lisp
diff --git
a/src/main/checker.lisp
b/src/main/checker.lisp
index f811ee35c2dd0ecfa88261735bb7d9e03e630674..857d2a7d350c3c4db1182e66b614857a64b335b0 100644
(file)
--- a/
src/main/checker.lisp
+++ b/
src/main/checker.lisp
@@
-20,6
+20,7
@@
; Exceptions
; * comments
; * multiline strings
; Exceptions
; * comments
; * multiline strings
+; * exclude in-package check from package.lisp
; 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
@@
-103,7
+104,9
@@
(let ((seq (make-sequence sequence-type (file-length str)))) (read-sequence seq str) seq)))
(defun check-file (file)
(let ((seq (make-sequence sequence-type (file-length str)))) (read-sequence seq str) seq)))
(defun check-file (file)
- (set-state :begin)
+ (if (string= "package" (pathname-name file))
+ (set-state :normal)
+ (set-state :begin))
(setf *line-no* 0)
(setf *col-no* 0)
(setf *form-stack* nil)
(setf *line-no* 0)
(setf *col-no* 0)
(setf *form-stack* nil)