From 53cb30ad0335c33c70c24779aa964b775404680e Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Tue, 31 Jan 2012 21:22:41 -0800 Subject: [PATCH] Minor fix from Paul: avoid capitalizing mid-name in the completions list. --- src/code/unidata.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp index 91b5bda68..e0442d897 100644 --- a/src/code/unidata.lisp +++ b/src/code/unidata.lisp @@ -1286,7 +1286,7 @@ (let* ((base (mip result)) (node (search-dictionary base dict))) (values (str base) - (sort (mapcar (lambda (x) (str (subseq x (length base)))) + (sort (mapcar (lambda (x) (subseq (str x) (length base))) (delete base result :test #'string=)) #'string<) (and node (completep node))))))) -- GitLab