/[cmucl]/src/pcl/herald.lisp
ViewVC logotype

Contents of /src/pcl/herald.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations)
Fri Mar 19 15:19:03 2010 UTC (4 years ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.4: +7 -4 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
1 (in-package "PCL")
2 (intl:textdomain "cmucl")
3
4 #+(or loadable-pcl bootable-pcl)
5 (progn
6 (defvar *pcl-system-date* "$Date: 2010/03/19 15:19:03 $")
7 (setf (getf *herald-items* :pcl)
8 `(,#'(lambda (stream)
9 (write-string _" CLOS based on Gerd's PCL " stream))
10 ,(if (>= (length *pcl-system-date*) 26)
11 (subseq *pcl-system-date* 7 26)
12 ""))))
13

  ViewVC Help
Powered by ViewVC 1.1.5