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

Make sure to write clpi-version object

parent 1776c3af
Loading
Loading
Loading
Loading
+11 −5
Original line number Diff line number Diff line
@@ -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)