From: Frank Duncan 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?a=commitdiff_plain;h=07a4085;p=wolf 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)