From 176f40f74d76a4bdbc7101b733bcc398d1c4d2da Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 10 Jul 2009 04:17:49 +0000
Subject: [PATCH] unidata.lisp: o Add *unidata-version* to hold our revision
 number.

save.lisp:
o Add Unicode to the herald items.  Just print out the unidata version
  along with the supported Unicode UCD version.
---
 code/save.lisp    | 19 ++++++++++++++++++-
 code/unidata.lisp |  4 +++-
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index 64b1799db..013ddfa73 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 1863bfa7d..9b892b4fe 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+
-- 
GitLab