Permalink
Browse files

Oops, sort is destructive.

  • Loading branch information...
skeeto committed Sep 30, 2012
1 parent a41930c commit 1b700e64a747e9fb02af62740c541b7788d5b2a7
Showing with 2 additions and 1 deletion.
  1. +2 −1 psl-lib.el
View
@@ -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)

0 comments on commit 1b700e6

Please sign in to comment.