Commit d671c359 authored by Raymond Toy's avatar Raymond Toy

Add a herald for defsystem.

parent a2579cea
......@@ -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 --
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment