projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b5af62c
)
r9340: fix case reading
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 13 May 2004 09:38:40 +0000
(09:38 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 13 May 2004 09:38:40 +0000
(09:38 +0000)
src/primitives.lisp
patch
|
blob
|
history
diff --git
a/src/primitives.lisp
b/src/primitives.lisp
index 17eb941160266abcab9d1276c2054b7ba051e9a8..fbfc120c2d732625e8f7e820ed14ea3d0652628f 100644
(file)
--- 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*))
(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)
(pushnew :uffi-case-sensitive *features*)))
(defun make-lisp-name (name)