From 1f818db9cb54bc53b62e5b7c2268e6db7d62a3fa Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Sun, 12 Jul 2015 08:13:07 -0500 Subject: [PATCH 1/1] Check for internal symbols --- resources/internalsymbols.lisp | 8 ++++++++ src/main/checker.lisp | 7 +++---- 2 files changed, 11 insertions(+), 4 deletions(-) create mode 100644 resources/internalsymbols.lisp diff --git a/resources/internalsymbols.lisp b/resources/internalsymbols.lisp new file mode 100644 index 0000000..ba20295 --- /dev/null +++ b/resources/internalsymbols.lisp @@ -0,0 +1,8 @@ +(in-package #:nothing) + +(defun hello-world (a b c) + (progn + (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create) + (when + (read-line nothing::str) + (format t "This file had some things in int, yay!~%"))))) diff --git a/src/main/checker.lisp b/src/main/checker.lisp index f20b6a8..dcbe9ec 100644 --- a/src/main/checker.lisp +++ b/src/main/checker.lisp @@ -5,7 +5,7 @@ ; * No form longer than 50 lines ; - Top level multiline forms must be separated by exactly one space ; * No line longer than 120 characters -; - No use of unexported symbols in other packages +; * No use of unexported symbols in other packages ; * No tabs ; - Only one space between elements in a form on a single line ; * in-package must be first line in file unless file is package.lisp @@ -160,9 +160,8 @@ (cond ((not form) "Unmatched ending paren") ((< 50 (- *line-no* (car form))) "Forms can't be over 50 lines long"))))) - -(cl-ppcre:scan (cl-ppcre:create-scanner " *") " -asdf asdf") + (defevaluator :normal "::" + (constantly "No internal symbols from other packages")) (defevaluator :normal "." (constantly nil)) ) -- 2.25.1