Commit d692fefa authored by Eric Timmons's avatar Eric Timmons

Make sure objects end with a newline

parent 551a981d
......@@ -158,19 +158,22 @@ instantiated."))
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(write it :stream s))))
(write it :stream s)
(terpri s))))
(when (slot-boundp project 'repo)
(with-open-index-object-stream (s (index project) (project-object-path project "repo")
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(write (repo-to-description (project-repo project)) :stream s))))
(write (repo-to-description (project-repo project)) :stream s)
(terpri s))))
(when (slot-boundp project 'version-scheme)
(with-open-index-object-stream (s (index project) (project-object-path project "version-scheme")
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(write (project-version-scheme project) :stream s)))))))
(write (project-version-scheme project) :stream s)
(terpri s)))))))
(defmethod project-versions ((project project))
(hash-table-keys (project-release-ht project)))
......
......@@ -95,7 +95,8 @@ provide that version.")))
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(write (system-primary-project system) :stream s)))))
(write (system-primary-project system) :stream s)
(terpri s)))))
(defmethod system-version-release-names ((system system) version &optional (error t))
(multiple-value-bind (names exists-p) (gethash version (system-version-release-ht system))
......
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