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
clpm
Commits
374b5048
Commit
374b5048
authored
Jun 08, 2020
by
Eric Timmons
Browse files
Add safe-sort function that copies the sequence before sorting
parent
ffd18452
Changes
1
Hide whitespace changes
Inline
Side-by-side
clpm/utils.lisp
View file @
374b5048
...
...
@@ -18,6 +18,7 @@
#:process-stream
#:retriable-error
#:run-program-augment-env-args
#:safe-sort
#:sort-plist
#:uri-to-string
#:url-port
...
...
@@ -212,3 +213,7 @@ overwrites the value from ~default-ht~."
:do
(
push
key
out
)
(
push
value
out
))
(
nreverse
out
)))
(
defun
safe-sort
(
sequence
predicate
&rest
args
&key
key
)
(
declare
(
ignore
key
))
(
apply
#'
sort
(
copy-seq
sequence
)
predicate
args
))
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