Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpi
Commits
551a981d
Commit
551a981d
authored
May 08, 2020
by
Eric Timmons
Browse files
Make sure to write clpi-version object
parent
1776c3af
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/index.lisp
View file @
551a981d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment