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