Loading src/index.lisp +11 −5 Original line number Diff line number Diff line Loading @@ -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) Loading Loading
src/index.lisp +11 −5 Original line number Diff line number Diff line Loading @@ -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) Loading