diff --git a/code/exports.lisp b/code/exports.lisp index 41e46afda1e8daf785b9c69eaaefd83e40b5844c..30127d0db97c34010deee16c550f1dad96184b3d 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.300 2010/08/04 03:41:51 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.301 2010/09/17 23:29:00 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -891,7 +891,9 @@ "STRING-TO-NFC" "CODEPOINT-LIMIT" "CODEPOINT") #+unicode - (:export "STRING-TO-NFD" "STRING-TO-NFKC" "STRING-TO-NFKD")) + (:export "STRING-TO-NFC" "STRING-TO-NFD" + "STRING-TO-NFKC" "STRING-TO-NFKD" + "UNICODE-COMPLETE" "UNICODE-COMPLETE-NAME")) (defpackage "EVAL" (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*" diff --git a/code/unidata.lisp b/code/unidata.lisp index 369e900a1633c2ab128eb02c4bc7d051ad4f95f9..02be385ce78da54d5f02763fa017c27e20fea253 100644 --- a/code/unidata.lisp +++ b/code/unidata.lisp @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.13 2010/09/17 22:41:26 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.14 2010/09/17 23:29:01 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -13,9 +13,12 @@ (in-package "LISP") (intl:textdomain "cmucl") +(export '(string-to-nfd string-to-nfkc string-to-nfkd string-to-nfc + unicode-complete unicode-complete-name)) + (defconstant +unidata-path+ #p"ext-formats:unidata.bin") -(defvar *unidata-version* "$Revision: 1.13 $") +(defvar *unidata-version* "$Revision: 1.14 $") (defstruct unidata range