Merge pull request #17 from Shen-Language/consider-lisp-prefix-sysfunc

Overwrote shen.sysfunc? to accept any symbols starting with 'lisp.'

Author: rkoeninger

src/backend.lsp

@@ -532,7 +532,8 @@
     (T (simple-error (cn "boolean expected: not ~A~%" X)))))
 
 (DEFUN shen.lisp-prefixed? (Symbol)
-  (AND (SYMBOLP Symbol)
+  (AND (NOT (NULL Symbol))
+       (SYMBOLP Symbol)
        (shen-cl.prefix? (str Symbol) "lisp.")))
 
 (DEFUN shen.lisp-function-name (Symbol)

src/overwrite.lsp

@@ -23,6 +23,13 @@
 ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+(DEFVAR shen-cl.kernel-sysfunc? (FDEFINITION 'shen.sysfunc?))
+
+(DEFUN shen.sysfunc? (Symbol)
+  (or
+    (APPLY shen-cl.kernel-sysfunc? (LIST Symbol))
+    (IF (shen.lisp-prefixed? Symbol) 'true 'false)))
+
 (DEFUN shen.pvar? (X)
   (IF (AND (ARRAYP X) (NOT (STRINGP X)) (EQ (SVREF X 0) 'shen.pvar))
     'true