diff --git a/code/save.lisp b/code/save.lisp index 64b1799db45d906df1dd94e00650478beddf5359..013ddfa73757c9b947489f77ebbc97c893956561 100644 --- a/code/save.lisp +++ b/code/save.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/save.lisp,v 1.59 2009/06/11 16:03:59 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.60 2009/07/10 04:17:49 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -343,6 +343,23 @@ terpri "Loaded subsystems:")) +#+unicode +(setf (getf *herald-items* :unicode) + `(" Unicode " + ,(if (and (boundp 'lisp::*unidata-version*) + (>= (length lisp::*unidata-version*) 11)) + (subseq lisp::*unidata-version* 11 + (1- (length lisp::*unidata-version*))) + "") + " with Unicode version " + ,#'(lambda (stream) + (princ lisp::+unicode-major-version+ stream) + (write-char #\. stream) + (princ lisp::+unicode-minor-version+ stream) + (write-char #\. stream) + (princ lisp::+unicode-update-version+ stream)) + terpri)) + ;;; PRINT-HERALD -- Public ;;; (defun print-herald (&optional (stream *standard-output*)) diff --git a/code/unidata.lisp b/code/unidata.lisp index 1863bfa7d677c5448ec964f5287791fe56a410b5..9b892b4fe645c4e5aec2149f8a3f3199b8772b20 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.4 2009/07/02 21:00:48 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.5 2009/07/10 04:17:49 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -14,6 +14,8 @@ (defconstant +unidata-path+ #p"ext-formats:unidata.bin") +(defvar *unidata-version* "$Revision: 1.5 $") + (defstruct unidata range name+