Commit d692fefa authored by Eric Timmons's avatar Eric Timmons
Browse files

Make sure objects end with a newline

parent 551a981d
Loading
Loading
Loading
Loading
+6 −3
Original line number Diff line number Diff line
@@ -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)))
+2 −1
Original line number Diff line number Diff line
@@ -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))