Date: Friday, September 17, 2010 @ 19:29:01 Author: rtoy Path: /project/cmucl/cvsroot/src/code
Modified: exports.lisp unidata.lisp
exports.lisp: o Export STRING-TO-NFC, UNICODE-COMPLETE, and UNICODE-COMPLETE-NAME.
unidata.lisp: o Add explicit exports.
--------------+ exports.lisp | 6 ++++-- unidata.lisp | 7 +++++-- 2 files changed, 9 insertions(+), 4 deletions(-)
Index: src/code/exports.lisp diff -u src/code/exports.lisp:1.300 src/code/exports.lisp:1.301 --- src/code/exports.lisp:1.300 Tue Aug 3 23:41:51 2010 +++ src/code/exports.lisp Fri Sep 17 19:29:00 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.300 2010-08-04 03:41:51 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.301 2010-09-17 23:29:00 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -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*" Index: src/code/unidata.lisp diff -u src/code/unidata.lisp:1.13 src/code/unidata.lisp:1.14 --- src/code/unidata.lisp:1.13 Fri Sep 17 18:41:26 2010 +++ src/code/unidata.lisp Fri Sep 17 19:29:01 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.13 2010-09-17 22:41:26 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/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