[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv28908

Modified Files:
	swank-allegro.lisp 
Log Message:
(character-completion-set): Implement it.


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/10/26 16:50:03	1.92
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/10/28 17:41:57	1.93
@@ -769,3 +769,11 @@
 
 (defimplementation make-weak-value-hash-table (&rest args)
   (apply #'make-hash-table :values :weak args))
+
+
+;;;; Character names
+
+(defimplementation character-completion-set (prefix matchp)
+  (loop for name being the hash-keys of excl::*name-to-char-table*
+       when (funcall matchp prefix name)
+       collect (string-capitalize name)))