From: Frank Duncan <frank@kank.net>
Date: Mon, 13 Jul 2015 04:01:32 +0000 (-0500)
Subject: Add exception for package.lisp
X-Git-Tag: 0.1~1
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=commitdiff_plain;h=07a4085;hp=3c0f6bbe9b0c88e21965b2d7d2d9378fd660f1b7

Add exception for package.lisp
---

diff --git a/resources/package.lisp b/resources/package.lisp
new file mode 100644
index 0000000..3a72323
--- /dev/null
+++ b/resources/package.lisp
@@ -0,0 +1,6 @@
+(defpackage #:something (:use :common-lisp)
+ (:export :a :b :c))
+
+(defpackage #:nothing
+ (:use :common-lisp)
+ (:export :l))
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)