From 9563cc0b9456a1cefda784495eeef38f06baed44 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 17 Sep 2010 23:29:01 +0000 Subject: [PATCH] exports.lisp: o Export STRING-TO-NFC, UNICODE-COMPLETE, and UNICODE-COMPLETE-NAME. unidata.lisp: o Add explicit exports. --- code/exports.lisp | 6 ++++-- code/unidata.lisp | 7 +++++-- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 41e46afda..30127d0db 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 369e900a1..02be385ce 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 -- GitLab