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