Skip to content
Snippets Groups Projects
Commit 9563cc0b authored by rtoy's avatar rtoy
Browse files

exports.lisp:

o Export STRING-TO-NFC, UNICODE-COMPLETE, and UNICODE-COMPLETE-NAME.

unidata.lisp:
o Add explicit exports.
parent c2fac11e
No related branches found
No related tags found
No related merge requests found
......@@ -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*"
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment