Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Oops, sort is destructive.

  • Loading branch information...
commit 1b700e64a747e9fb02af62740c541b7788d5b2a7 1 parent a41930c
@skeeto authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  psl-lib.el
View
3  psl-lib.el
@@ -66,7 +66,8 @@ handles errors properly."
(cdr a)))))))
(cond
((and (psl-object-p a) (psl-object-p b))
- (equal (clean (sort (cdr a) #'pair<)) (clean (sort (cdr b) #'pair<))))
+ (equal (clean (sort (copy-sequence (cdr a)) #'pair<))
+ (clean (sort (copy-sequence (cdr b)) #'pair<))))
(t (equal a b)))))
(defun psl-< (&rest args)
Please sign in to comment.
Something went wrong with that request. Please try again.