Loading src/project.lisp +6 −3 Original line number Diff line number Diff line Loading @@ -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))) Loading src/system.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
src/project.lisp +6 −3 Original line number Diff line number Diff line Loading @@ -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))) Loading
src/system.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading