Add support for STRINGP function

diff --git a/src/string.lisp b/src/string.lisp
index 04aa7f1..d48ff3e 100644 (file)
--- a/src/string.lisp
+++ b/src/string.lisp
@@ -25,6 +25,9 @@
         (unless (char= (char s1 i) (char s2 i))
           (return-from string= nil))))))
 
+(defun stringp (s)
+  (stringp s))
+
 (define-setf-expander char (string index)
   (let ((g!string (gensym))
         (g!index (gensym))