gpl3 and apache2 licenses, with notice

src/starter.lisp

@@ -88,6 +88,11 @@
         (ensure-directories-exist (uiop:physicalize-pathname src))
         (format *error-output* " created.")))))
 
+(defmethod project-write-notice ((project <project>) stream)
+  (uiop:if-let ((notice (get-notice (project-license project))))
+    (uiop:if-let ((writer (license-ensure-writer notice t)))
+      (funcall writer project stream))))
+
 (defmethod project-create-package ((project <project>))
   (with-slots (root name pathname) project
     (let ((path (uiop:merge-pathnames* (uiop:make-pathname* :name "package"
@@ -96,7 +101,8 @@
       (with-open-file (out path :direction :output
                                 :if-exists :supersede
                                 :if-does-not-exist :create)
-        (format out "(defpackage :~a~%  (:use :cl))~%" name))
+        (project-write-notice project out)
+        (format out "~&(defpackage :~a~%  (:use :cl))~%" name))
       (format *error-output* "~&Created ~S" path))))
 
 (defmethod project-license-create ((project <project>))