>>>>> "Helmut" == Helmut Eller <[EMAIL PROTECTED]> writes:
Helmut> Try this:
Helmut> (defun compare-chars (char1 char2 ignore-case)
Helmut> (flet ((compare (char=)
Helmut> (funcall char= char1 char2)))
Helmut> (if ignore-case
Helmut> (compare #'char-equal)
Helmut> (compare #'char=))))
Helmut> (compile 'compare-chars)
Helmut> Now
Helmut> (compare-chars #\a #\A t)
Helmut> returns NIL, and not T as expected. I'm using CMUCL-18d on Linux.
Thanks for the report. I don't know why this is, but Juan Hierro has
a work-around for now.
Ray
