From d671c3595768543efbf2b01ddac321c9d87936af Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Mon, 1 Jul 2013 20:17:02 -0700
Subject: [PATCH] Add a herald for defsystem.

---
 src/contrib/defsystem/defsystem.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/contrib/defsystem/defsystem.lisp b/src/contrib/defsystem/defsystem.lisp
index 0f9be1b1c..198c9095a 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 --
-- 
GitLab