[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-06-2-gd671c35

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  d671c3595768543efbf2b01ddac321c9d87936af (commit)
      from  a2579ceae31fe7072e417e51d2045f63add281c2 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d671c3595768543efbf2b01ddac321c9d87936af
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Jul 1 20:17:02 2013 -0700

    Add a herald for defsystem.

diff --git a/src/contrib/defsystem/defsystem.lisp b/src/contrib/defsystem/defsystem.lisp
index 0f9be1b..198c909 100644
--- a/src/contrib/defsystem/defsystem.lisp
+++ b/src/contrib/defsystem/defsystem.lisp
@@ -5492,4 +5492,9 @@ nil)
     (format t "done.~%")))
 
 
+#+cmu
+(setf (getf ext:*herald-items* :defsystem)
+      `(,#'(lambda (stream)
+	     (write-string (intl:gettext "    Defsystem ") stream)
+	     (write-string *defsystem-version*))))
 ;;; end of file -- defsystem.lisp --

-----------------------------------------------------------------------

Summary of changes:
 src/contrib/defsystem/defsystem.lisp |    5 +++++
 1 file changed, 5 insertions(+)


hooks/post-receive
-- 
CMU Common Lisp