From 65fcf13c9c86650a2df27e8c1fc435aff6cc1e5e Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 18 May 2013 00:40:43 +0200 Subject: [PATCH] Accept string designators in STRING=. --- src/string.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/string.lisp b/src/string.lisp index 56c4776..8bead9b 100644 --- a/src/string.lisp +++ b/src/string.lisp @@ -19,7 +19,9 @@ (t (char-to-string x)))) (defun string= (s1 s2) - (let ((n (length s1))) + (let* ((s1 (string s1)) + (s2 (string s2)) + (n (length s1))) (when (= (length s2) n) (dotimes (i n t) (unless (char= (char s1 i) (char s2 i)) -- 1.7.10.4