Commit 551a981d authored by Eric Timmons's avatar Eric Timmons

Make sure to write clpi-version object

parent 1776c3af
......@@ -120,16 +120,22 @@ error."
(error 'project-missing-version :version release :project project))
(defmethod index-save ((index index))
(dolist (p (index-projects index))
(project-save p))
(dolist (s (index-systems index))
(system-save s))
(with-open-index-object-stream (s index "clpi-version"
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(write "0.4" :stream s)
(terpri s)))
(let ((plist (index-plist index)))
(with-open-index-object-stream (s index "index"
:direction :output
:if-exists :supersede)
(with-clpi-io-syntax ()
(pprint plist s))))
(dolist (p (index-projects index))
(project-save p))
(dolist (s (index-systems index))
(system-save s)))
(pprint plist s)))))
(defmethod index-system ((index index) system-name &optional (error t))
(multiple-value-bind (value exists-p)
......
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