Corrected typo.

Pascal J. Bourguignon [2021-05-03 00:30]
Corrected typo.
Filename
clext/character-sets.lisp
diff --git a/clext/character-sets.lisp b/clext/character-sets.lisp
index f2b468b..2564d1f 100644
--- a/clext/character-sets.lisp
+++ b/clext/character-sets.lisp
@@ -607,9 +607,9 @@ RETURN: The character-set that correspond to this emacs-encoding ;
        (setf ecs (subseq ecs 0 (- (length ecs) 4))
              line-termination :mac)))
     (values
-     (find (lambda (cs) (member ecs (cs-emacs-encoding cs)
-                           :test (function string-equal)))
-           *character-sets*)
+     (find-if (lambda (cs) (member ecs (cs-emacs-encoding cs)
+                                   :test (function string-equal)))
+              *character-sets*)
      line-termination)))

ViewGit