From ee05cb79a6d8f5f532abbae802ccce2790d5e564 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 13 May 2004 09:38:40 +0000 Subject: [PATCH] r9340: fix case reading --- src/primitives.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/primitives.lisp b/src/primitives.lisp index 17eb941..fbfc120 100644 --- a/src/primitives.lisp +++ b/src/primitives.lisp @@ -298,8 +298,8 @@ supports takes advantage of this optimization." (eval-when (:compile-toplevel :load-toplevel :execute) (when (char= #\a (schar (symbol-name '#:a) 0)) (pushnew :uffi-lowercase-reader *features*)) - (when (not (string-equal (symbol-name '#:a) - (symbol-name '#:A))) + (when (not (string= (symbol-name '#:a) + (symbol-name '#:A))) (pushnew :uffi-case-sensitive *features*))) (defun make-lisp-name (name) -- 2.34.1