From 07a408587371ca312441a3e030810f4fd0632131 Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank@kank.net>
Date: Sun, 12 Jul 2015 23:01:32 -0500
Subject: [PATCH] Add exception for package.lisp

---
 resources/package.lisp | 6 ++++++
 src/main/checker.lisp  | 5 ++++-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 resources/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)
-- 
2.25.1