[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-02-20-g09a1e78

Raymond Toy rtoy at common-lisp.net
Sat Mar 3 15:36:21 UTC 2012

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  09a1e78fcae36d88f56c6a3267ce72b07ed9f6dd (commit)
       via  e32ec7c0afd112b157e61756256219bb59536857 (commit)
      from  74c59b7679c19e07fa0866c4aeb1d652856a7ed9 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 09a1e78fcae36d88f56c6a3267ce72b07ed9f6dd
Merge: e32ec7c 74c59b7
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Mar 3 07:36:13 2012 -0800

    Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl

commit e32ec7c0afd112b157e61756256219bb59536857
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Mar 3 07:34:30 2012 -0800

    Return NIL if the prefix isn't a prefix of any name instead of
    signaling an error.

diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp
index 32432a1..981e2a7 100644
--- a/src/code/unidata.lisp
+++ b/src/code/unidata.lisp
@@ -1306,6 +1306,9 @@
 	 do (push (concatenate 'string prefix-match x) names))
       (when completep
 	(push prefix-match names))
+      (when (zerop (length prefix-match))
+	;; The prefix isn't a prefix for anything, so return nil
+	(return-from unicode-complete nil))
       (flet ((han-or-cjk-completion (prefix-match prefix dictionary)
 	       (let* ((prefix-tail (subseq prefix-match
 					   (min (length prefix)


Summary of changes:
 src/code/unidata.lisp |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list