From 1037cbf99ccaa55d6d0c799fcefbcffda4f7b486 Mon Sep 17 00:00:00 2001 From: Alfredo Beaumont Date: Sun, 12 May 2013 13:45:59 +0200 Subject: [PATCH] Add support for STRINGP function --- src/string.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/string.lisp b/src/string.lisp index 04aa7f1..d48ff3e 100644 --- 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)) -- 1.7.10.4