Skip to content
Snippets Groups Projects
Commit 176f40f7 authored by rtoy's avatar rtoy
Browse files

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.
parent d80ed711
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/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*))
......
......@@ -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+
......
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