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