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
02eccc08
Commit
02eccc08
authored
May 01, 2020
by
Eric Timmons
Browse files
Implement project-write-changes-to-stream
parent
e975cf39
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/project.lisp
View file @
02eccc08
...
...
@@ -152,6 +152,24 @@ instantiated."))
(
defmethod
project-versions
((
project
project
))
(
hash-table-keys
(
project-release-ht
project
)))
(
defmethod
project-write-changes-to-stream
((
project
project
)
s
)
(
assert
(
every
(
lambda
(
x
)
(
eql
(
car
x
)
:add-release
))
(
project-deltas
project
)))
(
let
((
release-descs
(
mapcar
(
lambda
(
release
)
(
list*
(
release-version
release
)
(
release-plist
release
)))
(
mapcar
#'
cdr
(
project-deltas
project
))))
(
version-scheme
(
project-version-scheme
project
)))
(
when
version-scheme
(
setf
release-descs
(
sort
release-descs
(
ecase
version-scheme
(
:date
#'
string<
))
:key
#'
car
)))
(
with-clpi-io-syntax
()
(
dolist
(
release-desc
release-descs
)
(
write
release-desc
:stream
s
)
(
terpri
s
))))
(
setf
(
project-deltas
project
)
nil
))
(
defmethod
project-write-to-stream
((
project
project
)
s
)
(
let
((
release-descs
(
mapcar
(
lambda
(
release
)
(
list*
(
release-version
release
)
(
release-plist
release
)))
...
...
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