X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=src%2Fmain%2Fchecker.lisp;h=857d2a7d350c3c4db1182e66b614857a64b335b0;hp=f811ee35c2dd0ecfa88261735bb7d9e03e630674;hb=07a4085;hpb=3c0f6bbe9b0c88e21965b2d7d2d9378fd660f1b7

diff --git a/src/main/checker.lisp b/src/main/checker.lisp
index f811ee3..857d2a7 100644
--- a/src/main/checker.lisp
+++ b/src/main/checker.lisp
@@ -20,6 +20,7 @@
 ; 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
@@ -103,7 +104,9 @@
   (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)